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The IBM 7090/7094 FORTRAN II System consists of 
the FORTRAN II Compiler, the FAP (FORTRAN As- 
sembly Program) Assembler, and the FORTRAN II 
Monitor. The Monitor coordinates compilation, 
assembly, and execution of FORTRAN and FAP 
programs. 

This publication provides instructions for the op- 
eration and use of the IBM 7090/7094 FORTRAN II 
System and for the creation and maintenance of the 
FORTRAN n System tape. 












INTRODUCTION 



The 7090/7094 FORTRAN II Processor is composed 
of the FORTRAN II Compiler, the FAP (FORTRAN 
Assembly Program) Assembler, and the FORTRAN 
II Monitor. The FORTRAN II Monitor coordinates 
compilations and assemblies, and permits binary 
object programs from previous compilations or as- 
semblies to be executed together as parts of a single 
job. The FORTRAN II Processor operates under the 
control of the FORTRAN II Monitor which may, in 
turn, operate under the control of the IBM Basic 
Monitor (IBSYS). When operating under IBSYS, jobs 
for the FORTRAN II Monitor may be stacked as in- 
put along with jobs for other processors that operate 
under IBSYS (e.g. , the IBJOB Processor). 

This publication contains a description of the 
FORTRAN II Processor operating under the 



FORTRAN n Monitor (Part 1 of this publication) and 
of the FORTRAN 11 Processor operating under 
IBSYS (Part 2 of this publication). 

Knowledge of the contents of the following publi- 
cations is assumed: 

IBM 7090/7094 Programming Systems: 

FORTRAN II . Form C28-6054-4 
IBM 709/7090 Programming Systems: FORTRAN 

Assembly Program (FAP) , Form C28-6235-2 
IBM 709/7090 Programming Systems: 
FORTRAN - Input/Output Package for 
32K Version , Form J28-6190 
32K 709/7090 FORTRAN: Adding Built-in - 
Functions , Form J28-6135 
IBM 7090/7094 Operating Systems: Basic Monitor 
(IBSYS) , Form C2 8-6248 



This edition, Form C28-6066-6, is a reprint of 
Form C28-6066-5 incorporating changes released 
in Technical Newsletters N28-0114-0 and 
N28-0119-0. The original publication and the 
newsletters are not obsolete. 



Copies of this and other IBM publications can be obtained through IBM Branch Offices. 

Address comments concerning the content of this publication to: 

IBM Corporation, Programming Systems Publications, Dept. D91, PO Box 390, Poughkeepsie, N.Y. 12602 



©1959, 1960, 1961, 1963 by International Business Machines Corporation 
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FART 1: 7090/7094 FORTRAN n UNDER THE 
7090/7094 FORTRAN II MONITOR 



CHAPTER 1: THE 7090/7094 FORTRAN II MONI- 
TOR SYSTEM 

The 7090/7094 FORTRAN H Monitor System, as dis- 
tributed, consists of the followir^ items: 

1. The Master Tape 

2. The Master Tape Duplicating program - 
9FTCP 

3. The Editor deck 

(Items 1 and 3 are used to produce the 
FORTRAN n Monitor System Tape.) 

4. Test Program - NIM 

Each of these items is discussed in the paragraphs 
which follow. 

The Master Tape 

The FORTRAN Monitor System is produced by edit- 
ii^ the Master tape with the Editor deck. Only the 
FORTRAN Monitor System tape, thus generated, 
may be used for source program compilation/assembly 
and/or object program execution. 

The Master tape consists of four files: 

File 1 contains both the routines that perform 
Monitor functions and the FAP assembler. 

File 2 contains the FORTRAN Compiler. 

File 3 is the library. This file consists of input/ 
output and exponential subroutines utilized by the 
FORTRAN Compiler, and the FORTRAN library 
mathematical subroutines (see Chapter 2). 

The first record of each library subroutine is a 
program card record. This record contains the in- 
formation (length of common storage, number of in- 
structions, etc.) required by the system to incorpo- 
rate the associated subroutine into an object program. 
The succeeding records of each library subroutine 
are the subroutine instructions in relocatable binary 
form. 

File 4 contains the General Di^nostic, which con- 
tains routines to analyze certain source program 
errors and produce a message specifying the error. 
The General Diagnostic is used only by the FORTRAN 
Compiler. 



The Master Tape Duplicating Program - 9FTCP 

In order to maintain the FORTRAN Monitor System 
intact, it is advisable to use the Master tape as little 
as possible, and then only to produce copies of the 
Master tape. Copies produced from the tape are 
used for the generation of a FORTRAN Monitor Sys- 
tem. 



The Master Tape Duplicatii^ program is supplied 
with the FORTRAN System to produce copies of the 
Master tape for subsequent processing. To insure 
the accurate duplication of the Master tape, the 
9FTCP program performs a checksum verification 
of all records duplicated from the Master tape. 

9FTCP may also be used to copy a System tape. 

The Editor Deck 

The Editor deck is the means by which a System 
tape is generated from the Master tape (or more 
precisely, from a copy of the Master tape). The 
System tape is defined to be a tape that contains the 
FORTRAN II Monitor System; it is used for the com- 
pilation and assembly of programs. 

The Editor deck may also be written onto tape 
off-line; the Edit tape produced permits a System 
tape to be generated from the FORTRAN Master 
tape as a Monitor job. Thus, the Edit tape may be 
used to update a System tape and to add or delete 
library subroutines. 

Composition of the Editor Deck 

The Editor deck is composed of the following column 
binary and Monitor control cards: 

1. Identification card - *I. D. 

2. Execute card - *XEQ. 

3. Call Edit program - 9CLEDT. 

4. 7090/7094 FORTRAN Editing program - 
9EDIT. 

5. Data card - *DATA. 

6. 9FI0P cards, if any. 

7. System Edit control card - 9SYSEDIT. 

8. Record control cards for those records of the 
Monitor which are to be changed, if any. 
Following the record control cards are the 
binary correction and/or instruction cards 
for the record. Following all Monitor records 
is the control card to write an end of file on 
the System tape after the Monitor. 

9. Same as 8, but for the Compiler. 

10 i l^ihvs.T^'' Edit control card - SLTTavrMT" 

11. Library subroutine program card and relo- 
catable instruction cards for each library 
subroutine. 

12. Diagnostic Edit control card - 9DIGEDIT. 

13. Diagnostic record control card followed by 
the binary correction and/or instruction cards 
and the control card to write an end of file on 
the System tape after the Diagnostic. 

14. End-of-Edit control card - 9ENDEDIT. 
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Note that the Editor deck is set up as a Monitor 
job with the necessary control cards. 9CLEDT is a 
main program that calls the subroutine 9EDIT. The 
data for this object program are column binary in- 
struction cards, edit control cards, record cards, 
and correction and/or change cards that are recog- 
nized by 9EDIT. 

The output of the above Monitor job is an updated 
System tape; the Master tape and Edit tape are un- 
changed. 



Maintenance of the Editor Deck 

Maintenance of the FORTRAN Editor deck will be by 
addition or deletion of binary cards containing cor- 
rections and additions to the System. These cards 
are distributed by the IBM DP Program Information 
Department. Memoranda accompanying these changes 
or correction cards will indicate how the cards are 
to be incorporated into the Editor deck, and the rea- 
son for the change or correction. 

The following types of corrections or changes are 
possible in the FORTRAN System: 

Change Existing Record on the Master Tape: If the 
contemplated change does not involve changing the 
first location that the record is to occupy when loaded 
into core storage, the record word count, or the en- 
try point, it is sufficient to insert the required change 
card(s) after the last binary card (if any) following 
the Master Record card. If there is a change in the 
record's entry point, first location, or word count, 
then its Master Record card must be changed accord- 
ingly (discussed later in this chapter) . 

If there are no changes for this record currently 
in the Editor deck, there will be no Master Record 
card for the record. When it is necessary to alter 
such a record, a Master Record card followed by the 
change card(s) must be inserted in the Editor deck. 

Delete the Existing Record on the Master Tape: 
Make the word count zero on the appropriate Master 
Record card. 

Insert a New Record : Insert a New Record card, 
followed by the required instruction cards, into the 
Editor deck where the new record is desired. 

Add or Delete a File Mark: Insert or remove the 
correspondir^ End File card in the Editor deck. 

Test Program - NIM 

This program is a typical FORTRAN II program 
which serves as a test deck for the System. 



CHAPTER 2: GENERATING AND MAINTAINING A 
SYSTEM TAPE 

The FORTRAN II Master tape and the FORTRAN II 
System tape each consist of four files of records. 
All files of the System tape are generated by the 
FORTRAN II Editing program, 9EDIT, from the 
corresponding files on the Master tape and from the 
record control cards and binary instruction cards 
that are included in the Editor deck. 

The method by which the System tape is generated 
is outlined below in the description of 9EDIT. 

The Call Edit Program - 9CLEDT 

9CLEDT is a main program that calls the Editir^ 
program, 9EDIT, and specifies which tape units con- 
tain the new System tape, the Master tape, and the 
Edit tape. The standard calling program, as distrib- 
uted, specifies B6 as the Master tape, A6 as the 
new System tape, and A2 as the Edit tape. In addi- 
tion, 9CLEDT specifies the tape on which the library 
is to be written; as distributed, 9CLEDT specifies 
that the library is to be written on the new System 
tape. In order to change tape assignments, the call- 
ing program must be FAP assembled with the desired 
parameters, as in the following example: 

FAP 

STL* $FLAGB5 (Include only to generate 
library on B5) 

STL* $FLAGA1 (Include only to suppress 
library on Al) 

CALL EDIT, SYSTEM, MASTER, EDITAP 

CALL EXIT 
SYSTEM OCT 1206 
MASTER OCT 2206 
EDITAP OCT 1202 

END 
The above program will replace 9CLEDT in the 
Editor deck. 

It is possible to edit from a System tape on logical 
tape 1, for example, by reassembling 9CLEDT to 
change symbolic location MASTER to OCT 1201. 
This will cause the current System tape to be used as 
the Master tape. Upon completion of editing, it is 
possible to continue processing using either the old 
System tape or the newly created System tape by 
dialing the desired one to logical tape 1. 



The FORTRAN Editing Program - 9 EDIT 

Each record of the Monitor and Compiler files of the 
System tape is generated as follows: 

1. A Master or New Record card is read from the 
Edit tape. 



2. All records whose numbers are less than that 
defined by the Master or New Record card are 
copied from the Master tape onto the System 
tape. 

3. The record that is to be changed, i. e. , corre- 
oT-i<-vvi/-iTvi<-r f<-> +1-1/3 TV/To ofQv" /~>v> XT Qiir 'Roonr'H card is 

read into a buffer, corrected, and written onto 
the System tape. This record must contain 
fewer than 10,000 words. 

4. The limits of the record are determined by the 
first location and the word count given on a 
Master or New Record card. The record is 
considered bounded by these limits. 

5. The first two words of each record correspond 
to the third and fourth words of the Master or 
New Record card. These words are considered 
control words. 

When 9EDIT recognizes the Library Edit control 
card, 9 LIB ED IT, it proceeds as follows: If the li- 
brary exists on the Edit tape, it is copied onto the 
System tape; if there is no library on the Edit tape, 
the library is copied from the Master tape. 

When 9EDIT recognizes the Diagnostic Edit con- 
trol card, 9DIGEDIT, it will process cards for the 
Diagnostic file in the same manner as it processed 
the records of the Monitor and Compiler files. 



Even if only one record of the System is being 
changed, all end -of -file control cards and the 
9LIBEDIT and 9DIGEDIT cards must be in the Editor 
deck. 

To change lOP (the Input/Output Package), the 
first card of lOP 9FIOP001, and the last card of 
lOP, 9FIOPU01, with the patch cards between them, 
must be placed after the * DATA card which immedi- 
ately precedes the card 9SYSEDIT. 

9EDIT contains control cards to write an end of 
file on the new System tape after record 12 , after 
record 34, and after the Diagnostic, which is the 
last record on the System tape. These same control 
cards, along with the necessary Master record cards 
for the records being corrected, enable editing to be 
effected from either a Master tape or a System tape. 



Cards Recognized by BEuIi 

9EDIT will recognize thirteen types of cards which 
may follow it in the Editor deck. The formats of 
these columm binary cards are given below. (Note: 
Record numbers are entered as the octal equivalent 
of ten times the actual record number.) 



Description 



1. System Edit 
control card - 
9SYSEDIT 

2. Master Record 



New Record 
card 



Word 



Prefix 



Decrement 



Tag Address 



(All numbers are octal) 
6 500 + word count 

4 500 + word count 



■^ v^iieCKaum ' 

Record word count 
Record number 
500 + word count 

-< -Checksum ■ 

Record word count 
Record number 







First location 
Entry point 




first location 
Entry point 



Card types 4, 5,6, and 7 are End-of-File control cards 



6. 



Skip an end of file 
on the Master tape, 
but write an end 
of file on the Sys- 
tem tape after 
record number n. 
Write an end of 
file on the System 
tape after record 
number n. 
Skip an end of file 
on the Master 
tape after record 
number n. 



500 



500 



500 
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Description 



Word Prefix 



Decrement 



7. Skip an end of file 
on the Master tape 
after record number 
n and block further 
input from the 
Master tape until 
the mode of editing 
changes. This will 
enable new records 
to be added just be- 
fore the end of file. 

8. Library Edit 
control card - 
9LBEDIT. 

9. Diagnostic Edit 
control card - 
9DIGEDIT. 

10. End-of-Edit 
control card - 
9ENDEDIT. 

11. Instruction card 
(22 words per 
card). 



Tag Address 



{All numbers are octal) 



500 



500 



500 



500 



500 plus word count 
-^ Checksum - 



load address 

>- 



-First binary correction instruction — 
- Second binary correction instruction ■ 



Word Bits 1-5 



6-8 



9-11 12-23 



24-35 



12. Instruction card 
(23 words per 
card). 



Word High-order 5 Remainder 

count digit of load of load 

address address 

First binary correction instruction 

Secondary binary correction instruction 



Folded 
checksum 



13. Library subroutine program card. This is the column binary equivalent of the row binary 
program card described in Chapter 3. 



The FORTRAN Library 



Mathematical Subroutines 



The entry point names, card labels, and descriptions 
of the subroutines that make up the library file of the 
Master tape are listed below. The order in which 
they are listed is the order of their appearance in 
the Editor deck immediately following 9LIB. 

Control Subroutine (internal to FORTRAN) 



ENTRY 
POINT NAME 

(FPT) 



EDITOR DECK 
CARD LABEL 



9FPT 



DESCRIPTION 

Floating pxaint trap routine. 
Handles the floating jxjint trap 
feature in an object program. 



ENTRY 
POINT NAME 

EXP(1 
EXP (2 
EXP (3 



EDITOR DECK 
CARD LABEL 




DESCRIPTION 

These are exponential subroutines 
compiled by a source program 
statement such as Y = E**X. One 
of the three routines is compiled , 
depending on whether a fixed 
point base-fixed point exponent, 
floating point base-fixed expo- 
nent, or a floating point base- 
floating point exponent mode, 
respectively, is specified in the 
source program statement. These 
subroutines are internal to 
FORTRAN. 



ENTRY 
POINT NAME 

EXP 



EDITOR DECK 
CARD LABEL 

9XPF 



LOG 


9LOG 


ATAN 


9ATN 


SIN, COS 


9SCN 


TANH 


9TNH 


(IFMP), (IFDP) 


9CAS 



TABS 



lEXP 



ILOG 



ISQRT 



ISIN, ICOS 



9CAB 



9CXP 



9CLG 



9CSQ 



9CSC 



(DFAD), (DFSB), 9DPS 

(DFMP), (DFDP) 



DMOD 



9DMD 



DINT 9DIN 

IXPP(2, DEXP(2 9DX2 

DEXP(3 9DX3 

DEXP 9DXP 

DLOG, DLOGIO 9DLG 



DSQRT 



9DSQ 



DESCRIPTION 

This is a floating point exponen- 
tial subroutine compiled into the 
object program by a source pro- 
gram statement such as 
A = EXPF(X). 

Floating point natural log sub- 
routine. 

Floating point arctangent sub- 
routine. 

Floating point sine and cosine 
subroutine. 

Floating point hyperbolic tan- 
gent subroutine. 
Complex arithmetic basic rou- 
tine. Performs complex multi- 
plication and division. 
Complex absolute value routine. 
For the complex number x + iy, 
lABS computes the square root 
of (x2 + y2). 

Exponential subroutine for com- 
plex numbers. If z = x + iy, 
lEXP computes e^. 
Natural logarithm subroutine for 
complex numbers. If z = x + iy, 
ILOG computes loggZ. 
Square root subroutine for com- 
plex numbers. If z = x + iy, 
ISQRT computes (z)l/2. 
Sine and cosine subroutine for 
complex numbers. 
Double -precision basic routine. 
Performs double -precision addi- 
tion, subtraction, multiplication, 
and division. 

Double-precision modulo routine. 
If X and y are double -precision 
numbers, DMOD computes 

Y _ fv/vl V wrharo lol is tVio 

- L- 'J " L"J '^ 

integral part of a. 

Obtains integral part of a double - 
precision number. 
Double -precision and complex 
exponential subroutine. 
One of two routines is compiled 
depending on whether a floating 
point base - fixed point exponent 
or a floating point base - floating 
point exponent is specified. 
Exponential subroutine for double- 
precision numbers. 
Natural logarithm and common 
logarithm subroutines for double- 
precision numbers. 
Square root subroutine for double - 
precision numbers. 



ENTRY 
POINT NAME 



EDITOR DECK 
CARD LABEL 

9DSC 



DSIN, DCOS 

DATAN, DATAN2 9DAT 

SQRT 9SQR 



DESCRIPTION 

Sine and cosine subroutine for 
double -precision numbers. 
Arctangent subroutine for double - 
precision numbers. 
Floating point square root sub- 
routine for single -precision, real 
numbers. 



Input/Output Subroutines (internal to FORTRAN) 



ENTRY 
POINT NAME 



EDITOR DECK 
CARD LABEL 



(TSB), (RLR) 9TSB 

(STB), (WLR) 9STB 

(CSH) 9CSH 



(TSH), (TSHM) 


9TSH 


(STH), (STHM), 


9STH 


(STHD) 




(SCH) 


9SCH 


(SPH) 


9 SPH 


(BST) 


9BST 


(SDR), (DRS) 


9DRM 



(EFT) 

(SLI) 

(SLO) 

(RER), (RDC) 
(WER), (WTC) 
(ICe), (EXB) 



9EFT 

9RVvT 
9SLI 

9SLO 

9RER 
9WER 
9IOB 



(lOH), (FIL), (RTN) 9IOH 

(IOS),(RDS), 9IOS 

(WRS),(BSR), 

(WEF),(REW). 

(ETT),(RCH), 

(TEF),{TCO), 

(TRC) 

(lOU) 9IOU 



DESCRIPTION 

Reads binary tape record(s) into 
storage. 

Writes binary tape record(s) from 
storage. 

Reads alphameric card(s) into 
storage and converts their contents 
to BCD. 

Reads BCD tape record(s) into 
storage. 

Writes BCD tape record(s) from 
storage. 

Punches alphameric card(s) from 
storage. 

Prints information from storage 
on the on-line printer. 
Backspaces the designated tape 
one record. 

Writes or reads data on the desig- 
nated drum, (SDR) is the write 
section of 9DRM, (DRS) is the 
read section of 9DRM. 
Writes an EOF mark on the 
designated tape. 
Rewinds the designated tape. 
Controls input of lists containing 
nonsubscripted array names. 
Controls output of lists containing 
nonsubscripted array names. 
Error routines for tape reading. 
Error routines for tape writing. 
Controls input/output of binary 
data. 

Controls input/output and conver- 
sion of alphameric data. 
Supervisory control of channel- 
unit designation during input/ 
outnut. 



DSU Channel-Unit table. 
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Monitor Subroutines 



ENTRY 
POINT NAME 



CHAIN 



DUMP 
PDUMP 



EDITOR DECK 
CARD LABEL 



9CHN 



9DMP 



DESCRIPTION 

CHAIN locates chain links, 
loads the chain executive loader 
into lower storage, and transfers 
control to it. 

DUMP takes storage dumps ac- 
cording to the specifications in 
the arguments A, B, and C; it 
positions the System tape at the 
Sign-On record; and it restores 
1-CS to begin the next job. 
PDUMP takes storage dumps as 
specified by the argument A, B, 
and C; it restores the condition 
of the machine; and it returns 
to the program that called it. 
The MQ and locations 0, 1, and 
2 are saved and restored. 



Other Subroutines 



ENTRY 
POINT NAME 



XLOC 



EDITOR DECK 
CARD LABEL 

9XLO 



DESCRIPTION 

The source statement, 
L = XLOCF(N), returns the re- 
located location of its argu- 
ment (variable N) to the accum- 
ulator as a FORTRAN fixed point 
constant. 

(EXE) controls the object pro- 
gram error procedure 
when execution is not under 
Monitor control. 
(EXEM) controls the object pro- 
gram error procedure when exe- 
cution is under Monitor control. 
EXIT positions the System tape 
at the Sign-On record and re- 
stores 1-CS to begin the next 
job. 

The instruction XEC* $(TES) 
may be used in a FAP-coded 
subroutine to make sure that 
the execution of any previous 
FORTRAN WRITE statement is 
complete and checked, (TES) 
is set to TSX (WER), 4 by 9STH 
and 9 STB and is reset to NOP 
by 9WER. 



Each FORTRAN source program input/output 
statement requires one or more library subroutines 
during execution of the object program. In order to 
save both compilation time and card searching time 
caused by duplication of library subroutines (as 
might easily occur in a main program -subprogram 
sequence), binary card copies (from the Editor deck) 



(EXE) 



(EXEM) 



EXIT 



(TES) 



9EXE 



9EXEM 



9xrr 



9TES 



of certain of these frequently used subroutines may 
be kept aside and inserted into the load deck when 
needed. 

For programs loaded under Monitor control, miss- 
ing library routines are automatically supplied. 

The library subroutines required for each source 
input /output statement are as follows: 



FORTRAN 
Source Input/ Output 
Statement 

READ 

READ INPUT TAPE 

WRITE OUTPUT TAPE 

PUNCH 
PRINT 
WRITE TAPE 

READ TAPE 

BACKSPACE 
END FILE 
REWIND 
WRITE DRUM 
READ DRUM 



The Editor Deck Card Labels 

of the Library Subroutines 
Required 

9CSH, 9IOH, 9IOS, 9IOU, 9TES, 9EXE 

9TSH, 9RER, 9lOii, 9IOS, 9XIT, 9TES, 

9EXE,9IOU 

9STH, 9WER, 9IOH, 9IOS, 9IOU, 9TES, 

9EXE 

9SCH, 9I0H, 9IOS, 9IOU, 9TES, 9EXE 

9SPH, 9IOH, 9IOS, 9IOU, 9TES, 9EXE 

9STB, 9WER, 9IOB, 9IOS, 9IOU, 9TES, 

9EXE 

9STB, 9RER, 9IOB, 9IOS, 9IOU, 9TES, 

9EXE 

9BST, 9IOS, 9IOU, 9TES, 9EXE 

9EFT, 9IOS, 9IOU, 9TES, 9EXE 

9RWT, 9IOS, 9IOU, 9TES, 9EXE 

9DRM 

9DRM 



In addition to the above listed subroutines, the 
following two subroutines may or may not be required, 
as determined by the object program storage map: 



Subroutine 



Entry Point Name 

(SLI) 

(SLO) 



Label 



Short List Input (SLI) 9SLI 

Short List Output (SLO) 9SLO 

The library subroutine Floating Point Trap, 9FPT, 
must always be included in the object program deck 
when loading the program for execution. 

FORTRAN floating point overflow/underflow will 
be treated as follows: 

Overflow Occurs in: 9FPT Returns: 



AC 
MQ 
AC and MQ 



All I's in the AC 
All I's in the MQ 
All I's in the AC and the MQ 



Underflow Occurs in: 9FPT Returns: 



AC 

MQ 

AC and MQ 



All O's in the AC 
All O's in the MQ 
All O's in the AC and the MQ 



NOTE: If library subroutines are not punched out 
at compile time, it is recommended that the section 
of the object program storage map labeled "Entry 
Points to Subroutines Not Punched from Library" 
be examined to insure that the library decks loaded 
with the object program are complete. However, if 
execution is under Monitor control, a library search 
will be performed. 
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Library Subroutine Program Card 

The first card of every library subroutine must be a 
program card that has the same format as the pro- 
gram card described in Chapter 3. 

Additional entry points of library subroutines, 
each of which is represented by a distinct name, 
may be designated as primary or secondary. If 
column 37 of the entrj'^ word is punched, it is a 
secondary name; if not, it is a primary name. The 
meaning of primary and secondary names arises out 
of the following rule of precedence which is used by 

object program. 

Rule: When a function is mentioned in a source 
program, the routine that will be used is the first 
routine in the System tape library that meets either 
of the following conditions: 

1. The name mentioned is a primary name of the 
routine. 

2. The name mentioned is a secondary name of 
the routine and at least one of the primary 
names of the routine is also mentioned. 

If the System tape library is arranged with sub- 
routines that have many secondary names preceding 
subroutines that have few names or none, the above 
stated rule will prevent unnecessary duplication of 
subroutines in the object program. 

Example : Suppose the System tape contains an arc- 
sine routine that has an entry point to a routine to 
compute a square root, and this routine is given two 
names, ASINF (primary) and SQRTF (secondary). 
Also, subsequently on the System tape there is an 
ordinary square root subroutine with the single name 
SQRTF (primary). A source program that requires 
both ASINF and SQRTF will cause only the former 
program to be included in the object program. 



FORTRAN Channel-Unit Tables 

The FORTRAN Processor contains two channel-unit 
tables: the lOU table contains tape assignments for 
FORTRAN object programs; the lOPU table contains 
tape assignments for the FORTRAN Processor. 

Description of DSU Channel-Unit Table for FORTRAN 



FORTRAN Tape Number 



Channel-Unit 


Al 


B 2 


B 3 


A4 


A2 


A3 


B 4 


B 1 



From this assignment it can be seen that provision 
has been made for operation on two channels. Table 
A shows the symbolic cards wnich prouuceu 
9IOU0000 and 9IOU0001. 

To change the tape assignment, the following pro- 
cedure is necessary: 

1. Change the appropriate cards in a symbolic 
deck for 9IOU. Table B indicates this pro- 
cedure by showing the following example 
for a 7090 or 7094 installation with 12 tape 
units and 3 channels. 



FORTRAN Tape Number 



Channel-Unit 



1-4 A 1-4 

5-8 B 1-4 

9-12 C 1-4 

2. FAP -assemble this symbolic deck. 

3. Replace the two cards labeled 9IOU0000 and 
9IOU0001 in the Library portion of the Editor 
deck by the two cards produced from the FAP 
assembly. 

4. Generate a new System tape. 
It is recommended that the table contain zero 
entries for those units not actually available. Then 



a iiicujiiiiic D 



top ^1 



execution of an object program if a unit addressed 
has been designated as not available on the machine. 
If this stop occurs, enter the instruction AXT n,4; 
where n is the unit/channel address desired as it 
would appear in the Unit table (for example, 1201), 
and depress the Start key. Under Monitor control, 
EXEM handles this error. 

Entries may be made in the Unit table for tapes 
on any of the eight channels A-H. Likewise, the 
Reader, Punch, and Printer may be changed from 
channel A to any other channel by making the ap- 
propriate changes in the first three entries of 9IOU. 



In the library section of the FORTRAN Editor deck 
there are two relocatable binary cards labeled 
9IOU0000 and 9IOU0001. The first of these is the 
program card; the other card contains the DSU 
Channel-Unit table for FORTRAN object programs. 
The table assigns tapes as follows: 



Description of lOP Channel-Unit Table 

Tape assignments for the FORTRAN Processor are 
contained in the Input/Output Package Channel -Unit 
table (lOPU). Card 9FIOPU01 in the Editor deck 
contains the following tape assignments: 
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FORTRAN Tape Number 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 



Channel -Unit 


A 1 


B 2 


B 3 


A4 


A2 


A3 


B4 


B 1 


A5 


B 5 


A6 


B 6 


A7 


B 7 


A8 


B 8 



Location OPTION should be changed to NOP to 
activate the setting of tape densities. Tape density 
table PKUP-1 currently sets density on 16 tapes; 
tapes 5,6,7 are set to low density; the others are 
set to high density. Room is available in the table 
for additional entries. A density setting may be 
changed by inverting the prefix sign in the entry 
for each tape. 



x^ 








* 


FAP 




15 






A 8 




COUNT 


40 


16 






B 8 


* 
* 


FORTRAN LIBRARY / INPUT -OUTPUT CHANNEL-UNIT 
TABLE / 9IOU. 












ENTRY 


(lOU) 












REM . 














PZE 


PRINT 


* FAP 










PZE 


PUNCH 


COUNT 


30 








PZE 


READ 


* FORTRAN LIBRARY / INPUT - 


-OUTPUT CHANNEL-UNIT 


(lOU) 


PZE 


NTAPES 


* TABLE / 9IOU. 








PZE 


Al 


* 










PZE 


A2 


ENTRY 


(lOU) 








PZE 


A3 


REM 










PZE 
PZE 


A4 


PZE 


PRINT 






Bl 


PZE 


PUNCH 








PZE 


B2 


PZE 


READ 








PZE 


B3 


(lOU) PZE 


NTAPES 








PZE 


B4 


PZE 


Al 








PZE 


CI 


PZE 


B2 








PZE 


C2 


PZE 


B3 








PZE 


C3 


PZE 


A4 








PZE 


C4 


PZE 


A2 






* INSERTIONS AND/ OR DELETIONS SHOULD BE MADE BETWEEN 


PZE 


A3 






* NTAPES AND (lOU). 


PZE 


B4 






NTAPES 


EQU 


*-(IOU)-l 


PZE 


Bl 






* 






* INSERTIONS AND/OR DELETIONS SHOULD BE MADE BETWEEN 


READ 


BOOL 


1321 


* NTAPES AND (lOU). 






PUNCH BOOL 


1341 


NTAPES EQU 


*-(ICXJ)-l 






PRINT 


BOOL 


1361 


* 








Al 


BOOL 


1201 


READ BOOL 


1321 






A2 


BOOL 


1202 


PUNCH BOOL 


1341 






A3 


BOOL 


1203 


PRINT BOOL 


1361 






A4 


BOOL 


1204 


Al BOOL 


1201 






Bl 


BOOL 


2201 


A2 BOOL 


1202 






B2 


BOOL 


2202 


A3 BOOL 


1203 






B3 


BOOL 


2203 


A4 BOOL 


1204 






B4 


BOOL 


2204 


Bl BOOL 


2201 






CI 


BOOL 


3201 


B2 BOOL 


2202 






C2 


BOOL 


3202 


B3 BOOL 


2203 






C3 


BOOL 


3203 


B4 BOOL 


2204 






C4 


BOOL 


3204 


REM 










REM . 
END 




END 










Table A. DSU Channel-Unit Table as 


Found 


in the 7090/7094 


Table B 


. Ex amp] 


[e of Channel-Unit Table for 7090/7094 



FORTRAN II Input -Output Library 



Installation with 12 Tapes 
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FORTRAN 
ENTRY POINT 
NAMES 



ATAN 



EXP 



SIN 
COS 



TANH 



Adapted From 



SHARE 
Routine 



LOG 



SQRT 



IB ATNl 



IBFXP 



IBSINl 



Distribution 
Number 



507 



IB TANH 



IB LOGS 



IBSQl 



507 



jNumoer oi 
Locations (Decimal) 



507 



665 46 



n 



46 



105 



86 



Erasable 



+ 3 



+ 4 



+ 4 



721 



44 



+ 4 



Error 



<1 X 10-8 



< 1 X 10" 



< 1 X 10-8 



< 3 X 10-8 


for 


x~. 00034 


or 


~.17 


Otherwise 


< 1 X 10-8 



< 3 x 10" 



<1 X 10" 



Description 



Computes in radians the principal 
value of arctan (x) where x is a 
floating point single-precision 
argument 

Computes e''^ for a floating- 
point single-precision argument 
I X I <88.028 



Computes the sine or cosine of a 
single-precision normalized 
floating-point argument x,. in 
radians, where i x I < 2^6 

Computes tanh (x) for any single- 
precision floating-point argu- 
ment, in radians 



Computes log^x, natural log- 
arithm, for a single-precision 
floating-point argument in 
normalized from, i x i > 

Computes the square root of a 
single-precision floating-point 
argument x > 
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The FORTRAN Diagnostic System 

The FORTRAN Compiler Di^nostic may be consid- 
ered as having two divisions: The Section 1 Diag- 
nostic and the General Diagnostic. 



Section 1 Di^nostic 

The Section 1 Diagnostic is designed to detect as 
many errors as possible on the language or syntac- 
tical level. It results from the statement by state- 
ment scan of the entire program that Section 1 per- 
forms. 

1. When a source program error is detected, the 
statement in error is written on tape A3 along with 
a message explaining the error. The message is also 



written on-line if END card setting 3 is 1. Section 
1 then proceeds to its scan of the next statement. 
This means that only the first error in any one state- 
ment is detected. When all statements have been 
scanned, a stop occurs indicating that the Section 1 
Diagnostic is complete. The diagnostic message is 
also written on the output tape following the source 
program. The source program must be corrected 
and recompiled. 

When not under Monitor control, the source pro- 
gram file on tape B2 may not be used because the 
end-of-f ile mark on the source program will have 
been overwritten by the diagnostic message. 

2. If only a machine error is detected, a printout 
occurs followed by a halt. The printout gives a pro- 
cedure to follow in order to delete or rerun the com- 
pilation. 
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General Diagnostic 



CHAPTER 3: FORTRAN II COMPILER OUTPUT 



The errors covered by the General Diagnostic, its 
structure on the System tape, and its operation are 
described below: 

Types of Errors: The General Diagnostic covers 
source program errors revealed by Sections 1' and 
1" through Section 6 of FORTRAN. 

1. Section 1" is a special diagnostic routine that 
is used to detect most of the source program 
errors not found by Section 1. These are pri- 
marily errors arising from the interrelation- 
ship of statements. Examples of such source 
program errors are: transfers to nonexistent 
statement numbers; parts of the program to 
which there is no path of flow; and transfers to 
nonexecutable statements . 

2. The source program errors revealed by Sec- 
tions 2 through 6 are primarily those arising 
from exceeding the source program size limi- 
tations. These limitations are given in 

IBM 7090/7094 Programming Systems: 
FORTRAN II, Form C28-6054-3. 

General Diagnostic on the FORTRAN System Tape: 

1. The General Diagnostic caller is contained in 
the Input/Output Package (lOP). 

2. The entire fourth file of the System tape is the 
General Diagnostic, and contains the specific 
comments and relevant table lookups for the 
particular source program error. 

Operation of the General Diagnostic: When a 
source error is encountered in any of the executive 
system records , control is transferred to the Diag- 
notic caller in lOP. 

The Diagnostic caller writes 8 , 700 words of stor- 
age onto tape A3 and spaces forward to the fourth 
file of the System tape, the General Diagnostic. 

The General Diagnostic performs a table search 
to determine which of its routines contains the infor- 
mation pertaining to the error. It then transfers to 
that routine. 

The routine to which the transfer is made contains 
the message explaining the error. In addition, it 
may contain program instructions to obtain detailed 
instructions that will become part of the message. 
The error message is then written on tape A3. The 
message is also written on-line if END card setting 
3 is 1, In the single compile mode, the message is 
written on tape B2 if Sense Switch 3 is up; if Sense 
Switch 3 is down or the END card settii^isl, the 
message is also printed on-line. 

The General Diagnostic then transfers control to 
the Source Error Record. 



When only the FORTRAN Compiler is being used 
(operations are not initiated by the Monitor Start 
card) , the following output is obtained. 

Composition of the Object Program Deck 

The binary card output of a main program compila- 
tion consists of the following sequence of cards: 

ESS loader (nine cards) 

Program card 

Program in relocatable binary 

Transfer card (9 punch in col 1) 
The binary card output of a SUBROUTINE or 
FUNCTION subprogram compilation consists of: 

Program card 

Program in relocatable binary 
When a library subroutine is called for during a 
compilation in which the punching of subroutine cards 
was requested, the subroutine card output will be: 

Program card 

Program in relocatable binary 



Preparing the Object Program Deck for Loading 

In order to run the object program , the FORTRAN 
object program deck must consist of the following 
sequence: 

BSS loader (nine cards) 

Program card 

Program in relocatable binary 

Program card 

Program in relocatable binary 

Program card 

Program in relocatable binary 



Transfer card (9 punch in col 1) 

One of the programs must be a main program and 
all of the others, subprograms. The programs may 
be in any order. 

All the subprograms called for in the main pro- 
gram and in other subprograms must be in the deck 
if it is to be executed. Of course, they normally 
will be in the deck as a result of a compilation with 
Sense Switch 5 DOWN. If any subprograms are miss- 
ing, a stop at 777338 °^ 777468 "^^^^ occur during 
loading with the BSS loader. 
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Subprograms in the Object Program Deck 



-Binary Symbolic Subroutine Loader (BSS) 



Although duplicate subprograms taken from the Li- 
brary tape will never occur in a single program, a 
SUBROUTINE subprogram, or a FUNCTION sub- 
program compilation, they may easily occur in a 
main program -subprogram sequence. 

If two subroutines in the object program deck have 
identical entry points , only the first will be loaded. 
However , if at least one entry point of the second sub- 
routine differs from all the entry points of previously 
loaded subroutines, it also will be loaded. In the case 
where both subroutines are loaded and reference in 
the object program is made to an entry point that 
appears in both subroutines , the first subroutine 
loaded will be called. For example, if subroutine 1 
has the entry points SIG, ALP, and BET, and sub- 
routine 2 has the entry points SIG, ALP, and PHI, 
reference to SIG would cause subroutine 1 to be 
called, assuming that subroutine 1 is loaded first. 

If a job contains the compilation or assembly of a 
subroutine with the same entry points as a subrou- 
tine that is loaded with the job, both subroutines 
will be loaded, but the compiled (or assembled) sub- 
routine will be called during execution. 

The physical sequence of subprograms belonging 
to any program , SUBROUTINE subprogram , or 
FUNCTION subprogram compilation is the reverse 
of their appearance in the section of the object pro- 
gram storage map labeled "Subroutines Punched 
from Library." 

In order to save both compilation time and card 
searching time caused by duplications of library sub- 
routines, binary decks of certain frequently used 
subroutines may be kept aside and inserted into the 
load deck when needed. This would enable some pro- 
grams to be run with Sense Switch 5 UP, that other- 
wise could not be. 

Transfer Card 

The Transfer card must be the last card in the load 
deck. It is, however, compiled as the last card in 
the main program , and the main program may not 
be the last program in the deck ready for loading. 
In this case, two alternatives are available: 

1. The Transfer card may simply be extracted 
and placed at the end of the complete load deck. 

^j • jrxj.xv^ 1/j.xv/ J. J. X Cbi.xoju^.'x ^.^ccx ^a \w k/u^xs^ix xxx \^\^±. -*-} xxjcbV 

be placed at the end of the load deck. In this case a 
stop at 777338 ^^ 777463 will occur during loading 
at the time the first Transfer card is encountered. 
Depressing the Start key enables loading to continue. 



The Binary Symbolic Subroutine loader (BSS) is 
punched out by FORTRAN as the first nine cards of 
each main program. It is not, however, punched out 
if column binary cards for the ma,in proo^ram are 
specified. The BSS loader is also not punched out 
with subprograms. 

The 7090/7094 FORTRAN H System produces decks 
in either relocatable column binary or relocatable row 
binary form, depending on the setting of Sense Switches 
1 and 4. In these relocatable binary decks, instruc- 
tions are assigned to consecutive storage locations 
starting at 0, and all location references are rela- 
tive to 0. When a relocatable binary deck is loaded, 
location references are altered according to the actual 
locations occupied by the program in storage. 

All decks, both main program and subprogram, 
compiled by FORTRAN and punched out in relocatable 
binary form, are loaded by the BSS loader. The 
loader enables programs in relocatable row binary 
form to retain symbolic references to subprograms. 
As a result of this feature, a main program and each 
of its subprograms can be independently compiled. 
It is possible to compile a main program for which 
some or all of the subprograms have not yet been 
written. After a main program and each of its sub- 
programs have been compiled, the resulting relocat- 
able binary decks can be loaded together and exe- 
cuted. At execution time, the relocatable binary 
decks of the main program and its subprograms - 
starting at relocatable - are stacked in the card 
reader in any order , headed by the nine loader cards. 
The program and subprograms are loaded and re- 
located by the BSS loader, using control information 
supplied with the compiled routines; thev are then 
executed. 

Control information for the relocation process is 
provided to the loader by program cards, one pre- 
ceding the main program deck and one precedir^ 
each subprogram deck, A program card is the tenth 
card punched out by FORTRAN for a main program 
and the first card for each subprogram. The pro- 
gram card specifies the number of locations to be 
occupied by the routine; this number is used as an 
increment for relocating an immediately subsequent 
routine. The increments specified by successive 
progi'am cards are cumulative. Program cards con- 
tain other information required by the loader to in- 
terpret symbolic cross-references between the main 
program and its subprograms and between levels of 
subprograms. 



7090/7094 FORTRAN II under FORTRAN II Monitor 15 



In addition to relocatable binary decks produced by 
FORTRAN, the loader can also load binary cards, 
both absolute and relocatable, produced by a system 
other than FORTRAN. 

Transfer Card 

The last card of the last deck to be loaded must be a 
Transfer card. Row 9, column 1, must be punched 
on the Transfer card, and row 9, columns 2-36, 
must be blank. The rest of the card is ignored. 
This card will signal the BSS loader that the main 
program and all subprograms have been loaded. 
FORTRAN produces a Transfer card as the last 
card of a main program deck. 

Transfer List 



Card Formats Acceptable to the BSS Loader 

The following types of cards may be loaded by the 
BSS loader: 

1. Program cards 

2. Transfer cards (indicating end of the first 
loader pass) 

3. Control cards 

4. Absolute transfer cards 

5. Absolute binary instruction and data cards 

6. Relocatable binary instruction and data cards 

7. Relocatable binary transfer cards 

8. A self -loader that loads at least 32 words 
Blank cards will be ignored. The following is a 

description of the formats required for the types of 
cards listed above. 

Program Card 



If a program refers to subprograms, the first in- 
struction of the program in the compiled deck is 
preceded by a Transfer list. This Transfer list 
consists of the names of all the subprograms re- 
ferred to in the program; in the case of FAP sub- 
programs with more than one entry point, a name is 
listed for each entry point to which reference is 
made. Note that subprograms as well as main pro- 
grams may have a Transfer list, since a subprogram 
may call for lower level subprograms. 

When a program has a Transfer list, the first 
name in the list occupies relocatable location in 
the compiled deck, and each name in the list is 
counted as one word of the program. 

Execution of the BSS Loader 

Initially, the BSS loader loads itself into core stor- 
^e; the first three words are loaded into the first 
three core storage locations , and the remaining 
words, into locations 77453 8 to 11111 q. 

The first loader pass is then executed. In the first 
pass, absolute locations are assigned to instructions, 
data, and Transfer list names of the subroutines 
beii^ loaded. A symbol table is set up in which 
each subprogram name is associated with the abso- 
lute location of the entry point designated by the 
name. 

In the second pass, each Transfer list name is re- 
placed by an instruction which transfers control to 
the entry point designated by the name. The symbol 
table provides the necessary information for this 
step. Execution of the main program then begins. 

(The loader leaves parameters in a location for 
use by WD lOF, SHARE Distribution No. 978. This 
distribution is a package of buffered input/output 
routines for FORTRAN. ) 



Row Column Description 

9 1 Must be punched. 

2 Must be blank. 

9 3 The checksum will be ignored if it is 

blank or if there is a punch in column 3. 
4-18 Count of words on this card, excluding 

the 9 -row. 

19-21 Ignored. 

22-36 Must be blank. 

37-72 Checksum (add-and-carry-logical) of 

all words on this card except 9R. 
8 1-3 Ignored. 

4-18 Contains the number of words in the 

Transfer list for this program. This 
list must be loaded next and followed 
by instructions in the usual relocatable 
format. This field will be zero when 
the program being loaded does not 
require subprograms for its execution 
and, therefore, has no Transfer list. 

19-21 Ignored. 

22-36 Contains a number showing the length 

of lower storage. This is the program 
break. It is the same as the address- 
plus-one, relative to zero, of the last 
word of the program, excluding data 
assigned to common storage. 
All location references in the address 
or decrement fields of instructions 
being placed in storage are relocated 
as either lower storage or upper 
storage locations, depending on the 
range in which they fall with respect 
to the program break and on the asso- 
ciated relocation digits. 
References to be relocated as lower 
locations are relocated by the current 
increment of- the loader. The current 
increment is increased by the number 
in this program card field when the 
next control card or program card is 
read. 
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Row 



Column Description 



Row 



Column 



Description 



22-36 



37 



38-57 
58-72 



1-36. 



37 





as-a/ 


7 


58-72 


6,5,..., 


1-36 


0,11,12 





References to be relocated as upper 
locations are relocated according to the 
information provided to the loader by 
the last preceding control card. 
Punched if the program is to be loaded 
starting at an even storage location 
(pertains to Monitor operations only; 
ignored by BSS Loader). 
Ignored. 

This is the first location below the 
common storage area required for the 
program. This field must be blank 
(zero) if no common data is assigned. 
In the case of machine language sub- 
programs, common data storage may be 
assigned downward from 77777q; this 
address is then the 2's complement of 
the length of common storage. In the 
case of 709 and 7090 FORTRAN pro- 
grams, common data storage is always 
assigned downward from 774613. 
Unless otherwise indicated, the loader 
will cause the common data of suc- 
cessive routines to be overlapped. If 
overlapping is not desirable, the loader's 
current decrement should be reset by an 
entry in the 9R address of the control 
card placed in front of the program card 
for the routine whose data is to be 
moved down. The control card sets a 
new decrement into the loader to cause 
relocation of upper storage on cards fol- 
lowing the program card. The decrement 
will be retained until replaced by a new 
decrement given on a subsequent control 
card. 

If the program is a subprogram, this 
field contains the BCD representation 
of the name assigned to the first entry 
point (or to the subprogram if there is 
only one entry point). If the name 
contains fewer than six characters, 
each unused 6 -digit group at the right 
must be filled in with the BCD char- 
acter 1100002. If the program is a 
main program, this field must be blank, 
as a main program is considered to have 
a blank name. 

A punch in this column indicates that 
this entry point is secondary. No 
punch indicates that this entry point 
is primary. 
Ignored. 

The address, relative to zero, asso- 
ciated with the name in coliunns 1-36. 
If the program is a FAP subprogram 
with more than one entry point, the 
names assigned to the second, third, 
etc. , points are listed in these fields 
in order, i.e., the second in row 6, 
the third in row 5, etc. When all 
names have been listed, the remaining 
rows are left blank. The names are 
represented as described for row 7. 



37 



38-57 
58-72 



A punch in this column indicates that 
this entry point is secondary. No punch 
indicates that this entry point is pri- 
mary. 
Ignored. 

The address, relative to zero, asso- 
ciated with the name in columns 1-36. 



NOTE: If there are more than ten entry point names, 
one or more additional program cards are required, 
containing the eleventh, twelfth, etc. , names. Sup- 
plementary program cards must have row 9 punched 
as specified in the description of the program card, 
and the names must continue in row 8. 

Transfer Card 

Row Column Description 



9 


1 


Must be punched. 




2 


Must be blank. 




3 


Ignored. 




4-36 


Must be blank. 




37-72 


Ignored. 


8,7,..., 


all 


Ignored. 


0,11,12 







Control Card 

Row Column Description 



1 Must be blank. 

2 Must be punched. 

3 Ignored. 
4-12 Must be blank. 

1 3 Must be punched. 

14-18 Must be blank. 

19-21 Ignored. 

22-36 Contains the number of locations to be 
added to the current increment of the 
loader to yield a new increment. The 
new increment is effective for the 
relocation of lower storage locations 
in the next routine loaded. 

37-57 Ignored. 

58-72 Contains the 2's complement of the 

number the loader is to use in relocating 
common data downward. This number 
becomes the current decrement of the 
loader. The current decrement is reset 
each time a control card is read and is 
not related to the last previous decre- 
ment of the loader, 
ail Ignored. 



0,11,12 



NOTE: When a control card is read, the increment 
of the loader is increased by the number given in 
row 9, columns 22-36, of the last preceding program 
card, and further increased by the number in row 9, 
columns 22-36, of the control card. The decrement 
of the loader, however, is reset to a value not re- 
lated to the previous decrement. If row 9, columns 
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58-72, of the control card is blank, the decrement 
will be reset to 0. It is for this reason that common 
storage for different programs overlap. 

Absolute Transfer Card 



Row 



Column Description 



9 


1-21 


Must be blank, except that a punch 
in column 3 will be ignored. 




22-36 


Absolute location to which the BSS 
loader is to transfer control. 




37-72 


Ignored. 


8,7,..., 


all 


Ignored. 


0,11,12 







Absolute Binary Instruction or Data Card 



Row 



Column Description 



1-2 


Must be blank. 


3 


If punched, the checksum will be 




ignored. 


4-13 


Must be blank. 


14-18 


Count of words on this card, excluding 




row 9. 


19-21 


Ignored. 


22-36 


Address into which the first (i.e. , 8L) 




word is to be loaded. 


37-72 


Checksum (add-and-cany-logical) of 




all words on this card except 9R. 



8,7,..., 

0, 11, 12 Instructions or data to be loaded. 

Relocatable Binary Instruction or Data Card 

Row Column Description 

9 1 Must be blank. 

2 Must be punched. 

3 If punched, the checksum will be 
ignored. 

9 4-18 Count of words on this card, not 

including rows 8 and 9. 
19-21 Ignored. 

22-36 Address, relative to zero, into which 
the first (i.e., 7L) word is to be 
loaded. 
37-72 Checksum (add-and-carry-logical) of 

all words on this card except 9R. 
8 1-72 Both words are read together and con- 

tain information about the relocation 
of location reference in the address 
fields (columns 22-36 or 58-72) or 
decrement fields (columns 4-18 or 
40-54) of the instructions in rows 7-12 
of this card. 
7,6,..., 
0, 11, 12 Instructions or data to be loaded. 

The digits in row 8 of this card are interpreted one 
at a time and are related to the decrement field of 
7L, the address field of 7L, the decrement field of 



7R, the address field of 711, the decrement field of 
6L, etc. The binary digits have the following sig- 
nificances: 



Row 



Column Description 




10 • 



11 - 



Ignore this field. 

If the number in this field is equal to or 

greater than the program break, relocate 

as an upper storage location. If the 

number is less than the program break, 

relocate as a lower location. 

If the number in this field is equal to or 

greater than the program break, relocate 

as a lower storage location. If the 

number is less than the program break, 

relocate as an upper location. 



Instructions for which there is no room in the 
8-row for the necessary relocation digits must be 
put on another card. 

Relocatable Binary Transfer Card 



Row 



Column Description 



9 


1 


Must be blank. 




2 


Must be punched. 




3 


Ignored. 




4-21 


Must be blank. 




22-36 


Relocatable entrance address (in octal), 




37-72 


Must be blank. 


8,7,6 


all 


Must be blank. 


0,11,12 







A Self -Loader which Loads at Least 32 Words 

The 9 -left decrement of the self -loader must be 
greater than 32]^q. 

CHAPTER 4: FORTRAN E MONITOR 

The 7090/7094 FORTRAN E Monitor permits the 
following operations: 

1. FORTRAN compiling. 

2. FAP (FORTRAN Assembly Program) assem- 
bling. 

3. Execution of object programs. 

4. Execution of programs in links, a procedure 
necessary where the total program is too large 
to fit into storage and a link is a section of it 
which does fit into stor^e. 

Input to the 7090/7094 FORTRAN E Monitor System 
consists not only of the source program, but may 
include the following as well: 

1. FAP symbolic cards. 

2. Object program cards. 

3. Data cards. 

4. FORTRAN Monitor control cards. 
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input does not matter, provided that each separate 
deck, whether source program, object program, etc. , 
is preceded by appropriate control cards. 

The 7090/7094 FORTRAN II Compiler may be con- 
sidered a subsection of the Monitor. Under FORTRAN 
control a single source program may be compiled. 
Nothing further, including execution, can be done. 
If multiple compilation of a series of FORTRAN 
source programs is desired, Monitor control is re- 
quired. 

Definition of Job 

A job is the basic unit beii:g processed by the Monitor 
at any one time; it consists of one or more programs 
and is either an Execute job or a Non-Execute job. 
As an Execute job, it is to be executed immediately 
after whatever processing is required. This means 
that the programs of the job are related to each other. 
A Non-Execute job contains programs which need 
not be dependent. Each program is processed as the 
control cards for the job specify. The "processing" 
that is given a program is one of the following: 
Execute Non-Execute 

1. FORTRAN Compilation. 1. FORTRAN Compi- 

2. FAP Assembly. lation 

3. Relocation of object 2. FAP Assembly 
program input. (object program in- 

4. For jobs divided into links, put is ignored), 
treatments of chain links. 

A job is one of the following five types (the first 
three are Non-Execute jobs and the last two are 
Execute jobs): 

1. One or more FORTRAN source programs to 

lation. The programs may be main programs 
or subprograms. 

2. One or more FAP symbolic programs to be 
assembled. The programs may be main pro- 
grams or subprograms. 

3. An intermixture of job types 1 and 2. This 
results in multiple compilation and assembly 
of FORTRAN and FAP source programs, with 
object program output for each source program 
input. There may be any combination of main 
programs and subprograms. 

4. A sequence of input programs for immediate 
execution. The input programs may be of job 
types 1 and 2 , together with relocatable column 
binary object program cards. Data cards, to 
be used during execution, follow the input pro- 
grams. Input programs each consist of a 
single main program-subprogram sequence 
not larger than the available core storage. 
This sequence constitutes a "machine load. " 



A sequence oi input programs meant for exe- 
cution where each input program is a job of 
type 4. The data cards are placed at the end 
of all the input programs. This is called a 
Chain job and each of the jobs of type 4 is a 
Chain link. This permits a single object pro- 
gram execution to consist of more than one 
"machine load. " 



Input 

Job Input Decks 

The 7090/7094 FORTRAN H Monitor will process the 
following types of job input: 

1. Multiple Compilation/Assembling . Input will 
consist of an indefinite number of FORTRAN or FAP 
source decks for compilation or assembly only. The 
input for each such job will contain, in the order 
listed: 

DATE card, if any 

I. D. card 

Control cards for deck 1, if any 

Source deck 1 

Control cards for deck 2 , if any 

Source deck 2 



Control cards for deck n, if any 
Source deck n 

End-of-File card if input is from 
on-line cards. 

£J » K^\J±±l^LJ.CLbi.\JlX/ £\Q^K^Xi.iKJXlXX^ a,XX\A J-J AO CulL lUll • ±ll|-fU.l/ 

will consist of one main program and all its subpro- 
grams to be compiled and executed, together with the 
data. These programs may be a mixture of FORTRAN 
or FAP source programs and machine -language ob- 
ject programs. The object programs may be relocat- 
able column binary cards that are the output from a 
previous FORTRAN compilation (with the Transfer 
card, if any, removed) or from a FAP assembly, or 
are hand-coded subroutines for FORTRAN The in- 
put deck for a job of this type will contain, in the 
order listed: 

DATE card, if any 

I. D. card 

XEQ card 

Control cards for deck 1, if any 

Deck 1 : Object program or Source 
Source programs program 
precede object Control cards for deck 2, if any 
programs. Deck 2: Object or Source program 

Control cards for deck n, if any 
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No control cards 
for object pro- 
gram decks. 

Deck n : Object or Source program 
DATA card, if data follows 
Data deck, if any 
End-of-File card, if input is from 
cards on-line 
3. Chain Job. Input to a Chain job consists of the 
Chain Link decks to be compiled and executed, to- 
gether with their data decks. A Chain Link deck 
contains a main program together with all its sub- 
programs, where any or all of these may be source 
or object decks. The Chain Link deck, then, in the 
order listed, contains: 

CHAIN (R, T) for this particular 

link 
Control cards for deck 1, if any 
Deck 1 : Object or Source program 
Control cards for deck 2 , if any 
Source decks Deck 2: Object or Source program 
precede 
object decks. 

Control cards for deck n, if any 

Deck n: Object or Source program 
The input deck to a Chain job, in the order listed, 
contains: 

DATE card, if any 

I. D. card 

XEQ card 

Link deck 1 

Link deck 2 



Link deck n 
DATA card 
Data decks, if any 
End-of-File card, if input is from 
cards on-line. 
There is no restriction on the ordering of the Chain 
Link decks in the Chain Job deck, but it is most eco- 
nomical of execution time if links are stacked in the 
order in which they are called. 

Each binary object program must contain at least 
one card other than the program card. 

Preparing Jobs on Input Tape Off -Line 

1. Be sure that card-to-tape equipment handles 
column binary cards imless no jobs include 
binary input. 

2. Write each job on tape as a separate file. 

3. In a separate file, place an End Tape card after 
the last card of the last job. 



Preparing Jobs for On- Line Input 

1. Place an End-of-File card (7- and 8-punch in 
column 1) after each job. 

2 , Place an End Tape card after the last End-of- 
File card. 

The only difference between decks to be read on- 
line and those to be transcribe(f onto the input tape 
off-line is that the on-line decks must have an End- 
of-File card after each job. 



Monitor Features 

The third record of the Monitor is the "Sign-On" 
record. This may be programmed by the installation 
to handle accounting or other identifying information 
pertaining to a job. It reads and interprets the DATE 
card and the I. D. card which are the first cards for 
any given job. In addition, it recognizes the END 
TAPE card which signals that no more jobs follow. 
The IBM version of the Sign-On record prints the 
I.D. card on-line, writes it on tape for off-line 
printing, and signals the beginning of a job. It also 
prints and writes on tape the total number of lines of 
output at the completion of a job. This number in- 
cludes output both from compilation and from execu- 
tion of the job. If an installation elects to program 
this record, it will be useful to have certain locations 
left undisturbed at all times in which to save desired 
information. For this purpose, the Monitor leaves 
available locations 3-78 ^^^d II8-I373. 

There is a complete set of control cards for the 
Monitor. These are distinguished by an asterisk (*) 
in column 1. In general, they are of two types; one 
type governs the job as a whole, telling what it con- 
sists of, and the other governs output options. In 
addition to this set of control cards, there are the 
DUMP card, the STAJRT card, and the RESTART 
cards which are self-loading binary cards. Each of 
these three card types permits processii^ to be re- 
started when an unexpected stop occurs. 

The FORTRAN Monitor System uses eight tapes on 
two channels. These are Al, A2, A3, A4, Bl, B2, 
B3, B4. A2 is the input tape and A3 is the output 
tape. It should be noted that the correspondence be- 
tween logical tape designations used in FORTRAN 
source program input/output statements and the 
actual tape assignments at object time is set in the 
Unit table (lOU) in the FORTRAN Library. 

Tape Bl is used only for a Chain job or FAP up- 
dating. 

Monitor control card information is written and 
printed on-line. 

Object programs are loaded by the BSS control of 
the Monitor. 
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All Monitor control cards must have an "*" in col- 
umn 1. With the exception of the I. D, card, the 
specific control instruction of the card is punched in 
columns 7-72. Punching marf be done according to 
normal FORTRAN rules, which means that blanks 
are ignored. 

Governing the Job as a Whole; Type 1 Control Cards 

1. I, D. Card. This card must be present for 
every job, and if there is no DATE card, it must be 
the first card for the job. If there is a DATE card, 
it is first and the I.D. card immediately succeeds it. 
Columns 2-72 may contain anything that the instal- 
lation's Sign-On record is prepared to process. 

2. XEQ. This card must follow the I.D. card of 
a job which is to be executed. 

3. DATA. This card must immediately precede 
the data for jobs that are to be executed. It is not 
needed for jobs which do not require data. 

4. CHAIN (R, T). This card is used to separate 
links within a single Chain job and to specify the tape 
on which the link object program is to be stored for 
execution. It must precede the physically first pro- 
gram (or subprogram) of each Chain link, regardless 
of whether the program is a source or object program. 
R is a fixed point number greater than but less than 
32, 768 which denotes an identifying label for the tape 
record which contains the link, and T is the actual 
unit designation of the tape on which the link is to be 
stored at execution time. 

^' DATE. This card permits the programmer to 
obtain the date as an additional part of the heading of 
each printed page. The DATE card may appear in 
either or both of the following places: 

a. Preceding the I.D. card for a job. The DATE 
card is the only card which may precede the I.D, 
card. 

b. Following the Monitor START card read on-line. 
The date specified in this manner will be used 
throughout the Monitor run. However, a DATE 
card appearing with a job as in 5a takes prece- 
dence over the DATE card read on-line for that 
job only. 

Following are examples of the date field, which is 
specified after the DATE word of the control card: 
4/2/62; 6/18/61; 9/2/61. There must be two slashes 
(/) in the date field in addition to two characters for 
the year. 

6. lOP. This card prevents the zeroing out of the 
FORTRAN Common Input/Output Package (lOP) by 
the FORTRAN Monitor just prior to execution, thus 
making it available to object programs. COMMON 
storage is relocated downwards to prevent overlap 
with lOP. For a description of the use of lOP, see 



the manual lijlvl 7090/7094 Programming Systems: 
FORTRAN II Input/Output Package, Form J28-6190. 

Governing Compilation of Individual Programs; 
Type 2 Control Cards 

Under Monitor control, there are two ways by which 
the programmer may specify his output options for 
FORTRAN compilations. These are the END card 
and the type 2 Monitor control cards. If specifica- 
tions are given by both means, the Monitor control 
cards take precedence. In fact, the END statement 
which appears in the source program listing will be 
that fabricated by the Monitor from the control cards . 
For FAP assemblies, only the first two of these con- 
trol cards apply. Another result of the precedence of 
type 2 control cards over the END card is that the 
END statement for programs to be compiled by the 
Monitor need not have options specified following the 
word END. It may be only the word ENT) without 
specifiying options , If no specifications are given in 
the END statement or in Monitor control cards for a 
FORTRAN compilation, a standard output is produced. 
This consists of the following: 

1. The output tape, A3, contains the information 
of which the first two files of a eompilation in 
the single compile mode are composed; that is, 
the source program and the map of object pro- 
gram storage. 

2. The object program in relocatable binary is 
stacked on tape B4 for peripheral punching 
without the required library subroutines. 

3. The format for the B4 output tape is: one file 
containing the I.D. card for tlie job, one file 
containing primary program output for the job 
or for each link if a Chain job, and a BCD END 
TAPE file following the last job on the tape. 

The Type 2 Monitor control cards and their effects 
are: 

1. CARDS ROW. This card causes the Monitor 
to punch on-line standard FORTRAN relocatable row 
binary cards, preceded by a BSS loader if it is a 
FORTRAN main program. 

2. CARDS COLUMN. This card causes the Moni- 
tor to punch on-line column binary relocatable cards 
(no loader). 

Note that CARDS ROW and CARDS COLUMN can- 

3. LIST OR LISTS. Each of these cards causes 
the Monitor to write the object program in FAP-type 
language following the storage map. Both appear on 
the output tape. The LIST card produces listings in 
three columns without octal instruction representa- 
tion; the LISTS card produces listings in two columns 
with octal representation of each instruction and its 
relocation bits. If both cards are used, the LISTS 
card takes precedence. 
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grammer in this way: The contents of columns 2-7 
inclusive of a card are taken as the label if (a) it is 
the first card of the program which does not have an 
asterisk (*) in column 1 , (b) the card has a C punch 
in column 1, and (c) if at least one of the columns 
2-7 does not contain a blank. This label, with blanks 
treated as zero, is then placed in columns 73-78 of 
the output cards, with columns 79 and 80 used for 
serialization. Serialization begins with 00 and re- 
cycles when 99 is reached. If, however, the label 
does not use all of columns 73-78, serialization be- 
gins with zero and increases to 99. . .9, filling all 
remaining columns, through column 80, before it 
recycles. The Symbol table and all subroutines ob- 
tained with the program are serialized with their own 
names in columns 73-78. 

If conditions (a), (b), and (c) do not all hold, the 
labeling is applied in the following way with the 
LABEL control card present: For a subprogram, the 
name of the subprogram is used; for a main program, 
000000 is used in columns 73-78. The LABEL card 
option corresponds to END card setting 7. 

Labeling may be obtained on the off-line output 
cards of a FAP assembly. The information in card 
columns 2-7 of the FAP page title card will appear 
as the label. Serialization will occur as above. 

6. SYMBOL TABLE. This card causes the Moni- 
tor to punch a symbol table. 

7. ROW . This card causes the Processor to 
stack relocatable row binary cards on tape B4 for 
peripheral punching. This option may not be exer- 
cised in an EXECUTE job. (The Monitor will delete 
execution if a ROW card appears in an EXECUTE 
job.) 

8. PACK . This card causes the Processor to 
pack records on the off-line listing tape. There will 
be five 120-character lines per record. 

9. DEBUG. This card follows the last source 
program of a job, if any, and precedes the debug 
cards for each job or link of a Chain job. 

10. PRINT . This card causes the Processor to 
print on-line all information being written on the 
off-line listing tape. 



Other Control Cards 

There are three other Monitor control cards: FAP, 

END TAPE, and PAUSE. 

1. FAP. This card is placed immediately before 
the FAP program cards that are input to the 
Monitor. It specifies that those cards are to 
be FAP assembled. The FAP card follows 
any type 2 Monitor control cards that may be 
used. 



2. END TAPE . This card designates the end of 
the last Monitor job. It must be a separate 
file on the input tape. 

3. PAUSE . This card is placed in the job input 
deck at any point(s) at which the programmer 
wishes the machine to halt during the reading 
of the input tape. In this way, a pause for 
such purposes as tape reel mounting may be 
obtained. Processing may be restarted by 
depressing the Start key. 

Other cards, not strictly control cards, may be 
input to the Monitor. 

1. Cards with an asterisk in column 1 may be in- 
cluded with the control cards but their infor- 
mation field will be treated in the manner of 
comments. When read, they will be printed 
on-line and written on tape for off-line printing, 

2. End of File. This is not a Monitor control card. 
It is used only when input to the Monitor is on- 
line. When input is on-line, this card is nec- 
essary to signal the FORTRAN card-to-tape 
simulator to write an end -of -file mark which 
must separate jobs on the input tape. An End- 
of-File card is specified by a 7- and 8-punch 

in column 1. All other columns are ignored. 

General Information for Monitor Operat ions 

1. Composition of Monitor File, There are nine 
records in the Monitor file. In addition, two records 
at the end of the FORTRAN Compiler file (file 2) per- 
form Monitor functions. 



Record No. 



Record Name and Description 

Card- to- Tape Simulator. If input is on-line, 
this record transcribes the entire input deck on- 
to the input tape, A2. 

Dump. This record is called by the CALL 
PDUMP and CALL DUMP statements and the 
DUMP card, 

Sign-On. This record handles a job at the be- 
ginning and at the end. It reads and interprets 
the 1. D. card and the DATE card. An installa- 
tion may insert its own Sign-On record coding 
for accounting and other tasks. 
FAP Pass 1. 
FAP Pass 2. 



Monitor Scan, This record recognizes a particu- 
lar type of job and transfers for proper process- 
ing. This includes processing for: 

a. Chain job 

b. Execute job 

c. FAP assembly 

d. FORTRAN compilation 

e . Column binary input 

Monitor control cards are recognized and 
End cards are produced from them. When a 
job involves FORTRAN compilations, the 
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Kecord No. Record Name and Uescription 

FORTRAN source program is prepared on 
tape B2. 

7 Debug. This record reads the source language 
debugging cards and prepares debugging tables. 
After a program requiring debugging has been 
loaded by BSS Control, the program break is 
extended to include counter tests, calling 
sequences, and formats for dumping; the STR 
instructions are inserted in the program. 

8 BSS Control 1. This makes both loader passes 
for all binary object programs. In addition, it 
sorts Chain links on respective link tapes and 
prepares all programs for execution. BSS 
Control will also search the library for any miss- 
ing subroutines. 

9 library Search. This record searches the 
library for any missing subroutines. 

10 Machine Error. 

11 Source Error. 

32, 33, 34 These are the same as records 7, 8, and 9. 



2, When under Monitor control, a FORTRAN 
compilation, if desired, will produce row binary 
cards; however, the only cards acceptable for Moni- 
tor execution are column binary. All non-Monitor 
hand-coded subprograms to be used must have cor- 
rect associated program cards in proper column bi- 
nary form. 

3. If an error occurs during any of the nonexecu- 
tion phases of the Monitor, the Monitor will continue 
to process as much as possible of the remainder of 
the current job, but it will not permit execution, 

a. If the error is in the source program (whether 
FORTRAN or FAP), an on-line printout occurs. 
This particular program of the job will be 
skipped and the next program of the job will be 
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WARNING: Where a nonexecution phase error 
occurs in any program of a job, there is the 
danger that succeeding programs of the job will 
be compiled needlessly. If the job is an XEQ job 
and if object programs of succeeding compiled/ 
assembled programs are not called for by the 
control cards, there is no purpose in continu- 
ing to these programs. Therefore, the opera- 
tor, in this case, at the time of the source pro- 
gram error diagnostic, should be prepared to 
continue to the next job by means of the appro- 
priate RESTART card. 

b. If the stop is a machine error stop, the ordi- 
nary diagnostic option will be presented by the 
Machine Error record. The option of continu- 
ing will enable the next program of the job to 

be brought in. If the job is an XEQ job, the warn- 
ing given above applies here also. 

c. For the case of stops not accompanied by a 
diagnostic message, RESTART cards and a 



uuMi:' cara, wnicn are loaded at the point of 
stop, are provided, 
d. For unexpected stops occurring during object 
program execution, the DUMP or RESTART 
cards may be used. 

4. FORTRAN Compiler diagnostics are written 
off-line and are printed on-line if END card setting 

3 is 1. The Monitor includes diagnostics that are in- 
dependent of the FORTRAN diagnostic system. On- 
line operator options for machine error halts, how- 
ever, are given in the same way. 

5. For object programs which are too large to fit 
into core storage, the Monitor permits the program 
to be executed as a sequence of smaller programs 
called links. The entire job is called a Chain job. 
Subdivision of the program into links must be done 
by the programmer. Instructions for programming 
the Chain job are given in the IBM 7090/7094 Pro- 
gramming Systems: FORTRAN II, Form C28-6054-3. 

6. Object programxs under the control of the 
FORTRAN II Monitor are loaded into core storage 
beginning at symbolic location BOTTOM (see Appen- 
dix C). 

CHAPTER 5: FORTRAN II MASTER TAPE 
DUPLICATING PROGRAM - 9FTCP - OPERATION 

Operating Listructions 

The 9FTCP program is executed as follows: 

1. Ready the FORTRAN II Master tape on B5. 

2 . Ready the copy tape on Al . 

3. Ready 9FTCP in the card reader and depress 
the Load Cards key. 

4. Upon completion 9FTCP rewinds both Al and 
B5. The duplicated tape should then be file- 
protected. 

Programmed Halts 



Location 






(octal) 


Reason for Halt 


Procedure 


115 


Checksum for tape 


Depress the Start key 




Al does not agree 


to reread B5 and to 




with checksum 


rewrite Al. 




from B5. 




120 


RTT while reading 


Depress the Start key 




B5. 


to reread B5. 


122 


RTT while writing 


Depress the Start key 




Al. 


to rewrite Al. 


125 


RTT while reading 


Depress the Start key 




Al. 


to reread Al. 


131 


B5 word count of 


Depress the Start key 




records being copied 


to reread B5 and to 




fails to agree with that 


rewrite Al. 




of Al. 




136 


Final stop. 


Master tape duplication 
completed. 
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CHAPTER 6: SYSTEM TAPE GENERATION UNDER 
MONITOR CONTROL 

The FORTRAN subroutine 9EDIT and the calling 
program 9CLEDT, which are used to generate an 
up-to-date System tape, are self-contained in the 
Editor deck. 



CHAPTER 7: SYSTEM TAPE GENERATION NOT 
UNDER MONITOR CONTROL 

As a secondary mode of editing, an up-to-date 
System tape may be prepared on-line (not under 
Monitor control). 



Operating Instructions 

The following steps are necessary to generate a 
System tape. 
Tape Assignment : 

1. Ready the Master tape on B6. 

2 . Ready the copy tape , which will become the 
new FORTRAN Monitor System tape, on A6. 

3. Ready the Edit tape (Editor deck on tape) on 
A2. 

4. Ready the FORTRAN Monitor System tape 
on Al. 

Console Operations : 

1. Place the SHARE Printer Board No. 2 in the 
on-line printer. 

2. Ready the Monitor START card in the card 
reader . 

3. Depress the Load Cards key. 
Errors During Editing: 

All errors are printed on-line with recovery pro- 
cedures. If a card in the Editor deck is in error, the 
card identification is printed on-line; however, if 
there is no card identification, the card origin is 
printed on-line. 

Creating B5 Library Tape 

If it is desired to create a B5 Library tape , card 
9CLEDT B5 must be inserted in the Editor deck 
following the highest numbered card in 9CLEDT. 

If, in addition, it is desired to eliminate the 
library on the System tape, Al, insert card 9CLEDT 
Al in the Editor deck following card 9CLEDT B5. 

Using Library Tape on B5 

Since Section Six and BSS Control Library Search 
both search the Library tape , the following change 
must be made in the Input/Output Package (lOP): 

The decrement of symbolic location (LIBT) in lOP 
contains the logical tape designation for the Library 
tape. For example, to search the library on logical 
tape 10 (tape B5 as distributed) change the decre- 
ment of (LIBT ) to 123. This will cause BSS Control 
Library Search and Section Six to search the library 
on B5. However, the logical tape designation for 
the Library tape must be 1 or greater than 8; i.e. , 
the library may be on Al, A5, B5, A6, or B6. 



Operating Instructions 

Preparation of the Editor Deck: 

1. Remove all cards up to and including * DATA 
from the Editor deck as distributed. 

2. Precede the remaining Editor deck with the 
row binary deck labeled EDITON, or prepare 
an Edit tape off-line with the remaining Editor 
deck. 

Tape Assignment : 

1. Ready the Master tape on any tape unit. 

2. Ready the copy tape, which will become the 
System tape, on any tape unit. 

3. Mount an intermediate tape on any tape unit, 
or if the Editor deck is on tape , mount Edit 
tape on any tape unit. 

Console Operations: 

1. Ready the Editor deck in the on-line card 
reader , or if the Editor deck is on tape , ready 
EDITON in the card reader. 

2. Enter information in Console keys, as follows: 

S-11 Address of copy tape (octal) 
12-23 Address of Master tape (octal) 
24-35 Address of intermediate or 
Edit tape (octal) 

3. Depress the Load Cards key. 
Errors During Editing: 

All errors are printed on-line with recovery 
procedures. 



Creating B5 Library Tape 

If it is desired to create a B5 Library tape , card 
EDITON B5 must be inserted in the Editor deck 
following the highest numbered card in EDITON. 

If, in addition, it is desired to eliminate the 
library on the System tape , Al , insert card EDITON 
Al in the Editor deck following card EDITON B5. 



Using Library Tape on B5 

The procedure here is the same as it is for System 
tape generation under Monitor control discussed in 
Chapter 6. 
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CHAPTER 8: FORTRAN II MONITOR OPERATION 



Tape Output 



Input 

Any series of job input decks as described previ- 
ously. 

Tape Assignment 

The following tape unit assignments are to be made: 

1. Ready the FORTRAN Monitor System tape 
on Al. 

2. Read"^'' the in^^ut ta'^e on A2. A2 is readied 
regardless of whether input is on-line or off- 
line. The tape is not rewound by the Monitor. 

3. Ready tape A3 as the output tape for listing. 
A3 is not rewound by the Monitor. 

4. Ready A4 as a FORTRAN intermediate tape. 

5. Ready Bl as a Monitor intermediate tape if 
executing a Chain job. 

6. Ready B2 as an intermediate tape for FORTRAN 
compilation, PDUMP, and DUMP. 

7. Ready B3 as an intermediate tape for FORTRAN 
compilation. 

8. Ready B4 as the stacked binary output tape for 
off-line punching. This tape is not rewound by 
the Monitor. 

Console Operations 

The following console operations must be performed 
for proper FORTRAN Monitor operation. 

1. Place the SHARE Printer Board No. 2 in the 
on-line printer. 

2 . For card input , ready the START card fol- 



4. 



For tape input , ready the START card in the 

card reader. 

Depress the Load Cards key. 



End of Monitor Operations 

When the Monitor reaches the End Tape file on the 
input tape, it prints "END TAPE" on-line, off-line 
and as the last file on B4. The Monitor then executes 
a load sequence for the card reader. If the card 
reader is ready, but empty, an End of File is 
written on output tape A3. Otherwise, no End of 
File is written. 



Tape A3. Each compilation has as output on tape A3: 

1, The source program. 

2. A map of object program storage. 

3. The program in symbolic machine language 
if either LIST control card appeared with the 
source deck or the END card option lo - 1- 

4, Tape statistics are written on-line and off- 
line, on tape A3, before BSS writes "Execu- 
tion" and transfers control to the object pro- 
gram . Tape statistics are written for each 

tflr)(=> nn txjhipVi f}ipT»o Vipc Kaon oo+iin'-hr 

To delete tape statistics, the following preas- 
sembly patches may be made: 

Sign-On — Change the contents of HTPSTS+2 to 
TRA FCTWO to delete tape statistics entirely. 

Change the operation fields of GTCOM+1 and 
STAT16+1 to NOP to delete tape statistics on-line. 

BBS Control -- Change the contents of TOPRl as 
follows: 

TOPRl TRA TOPR2 to delete tape statistics 

entirely 
TOPRl STL NOSTON to delete tape statistics 

on-line 
TOPRl STL NOSTOF to delete tape statistics 

off-line 

Each FAP assembly causes the writing of the 
standard assembly output on A3. 

Tape B4 contains the binary output for every job 
on the input tape in the order in which the jobs ap- 
peared on the input tape. The binary output for each 
job occupies a separate file preceded by a file con- 
taining the I.D. card for the job. Each link of a 
Chain job occupies a separate file. 

Each main program or subprogram (FORTRAN or 
FAP) consists of: 

1. A blank card with label, if both LABEL and 
LIBE are requested. 

2. A library, if requested. 

3. A symbol table, if requested. 

4. A program card. 

5. The program in relocatable coliunn binary. 

NOTE: The BSS loader is not written on B4. Object 
programs punched from B4 may only be executed 
under Monitor control or with a relocatable column 
binary loader. 
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Punched Card Output (On- Line) 



Console Operations 



Object program cards for either FORTRAN or FAP 
source programs will be punched on-line if the 
CARDS ROW or CARDS COLUMN control cards ac- 
companied the source decks. 

1. FORTRAN or FAP main program compilation. 

a. Row binary output 

BSS loader 

Library, if requested I FORTRAN 

Symbol table , if only 

requested 
Program card 
Program in relocatable 

row binary 
Transfer card 

b. Column binary output 

Library, if requested I FORTRAN 

Symbol table, if | only 

requested 
Program card 
Program in relocatable 

column binary 

2 . FORTRAN or FAP subprogram in row or 
column binary 

Library, if requested 1 FORTRAN 

Symbol table , if requested J only 
Program card 
Program in relocatable binary 



CHAPTER 9: FORTRAN COMPILER OPERATION 
(SINGLE COMPILE ONLY) 

The following applies when operations are not initi- 
ated by the Monitor START card. 

Input 

The input to the FORTRAN Compiler may be either 
source statement cards or a tape prepared from the 
source statement cards on off-line card-to-tape 
equipment. 

Tape Assignment 

The following tape unit assignments are to be made: 

1. Ready the FORTRAN Monitor System tape 
on Al. 

2. Ready the input tape on B2. B2 is readied re- 
gardless of whether input is on-line or off-line. 
This tape will contain FORTRAN output for 
listings . 

3 . Ready tapes A3 , A4 , and B3 , 



The following operations must be performed for 
proper FORTRAN compiling: 

1. Place the SHARE Printer Board No. 2 in the 
on-line printer. 

2 . For card input , ready the cards in the card 
reader. 

3. For tape input, the card reader must also be 
readied, 

4. Depress the Load Tape key to begin compiling. 
At the end of a successful FORTRAN compilation: 

1. The on-line or off-line output that has been 
called for will be completed. 

2. A load-key sequence for the card reader will 
be executed. The card reader will be selected. 

3 . If no other cards are ready , the operator must 
depress the Start key. 

4. An end-of -compilation message is printed on- 
line. 

Failure to complete compilation will be indicated 
by an error comment on the on-line printer. 

Sense Switch Settings 

Sense switches should be set as follows for FORTRAN 
II compilation: 



Sense UP 

Switch 1 



DOWN 



Sense UP 

Switch 2 



DOWN 



Sense UP 

Switch 3 DOWN 

Sense UP 
Switch 4 

DOWN 

Sense UP 

Switch 5 

DOWN 



Sense 
Switch 6 

Tape Output 



Binary cards for the object program are punched 
on-line. Tape B3 also contains the binary pro- 
gram. Tape 34 will contain no binary programs. 
Binary cards for the output program are not 
punched. Tape B3 contains the binary program 
for the source program compiled. 
Two files are produced on tape B2 for the 
source program compiled; they consist of the 
source program and a map of object program 
storage. 

For each program compiled (see above), the 
object program in symbolic machine language 
is added to tape B2. 
No on-line listings are produced. 
Lists on-line the first two files of tape B2. 
No column binary cards for the object program 
are punched. Relocatable row binary cards 
are punched if Sense Switch 1 is UP. 
Column binary cards for the object program 
are punched if Sense Switch 1 is UP. 
Library routines are not punched out or written 
on tape B3. 

Library routines are punched on-line or written 
on tape B3, depending on whether Sense 
Switch 1 is in the UP or DOWN position. 

Not used. 



FORTRAN produces the following tape output (if 
Sense Switch 1 is DOWN) ; 
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1. B2 (for off-line printing) contains: 
File 1 Source program 

File 2 Map of object program storage 

Program in symbolic machine language 
(if Sense Switch 2 is DOWN) 

NOTE: The printer must be on Single or 

Double space for off-line printing. 

2, B3 contains binary output as follows: 

Main Program consisting of: 



Program card 

Program in relocatable binary 

Transfer card in relocatable binary 

Or 

Subprogram consisting of: 



Program card 

Program in relocatable binary 
NOTE: The BSS loader is not written on B3. Each 
B3 record is a FORTRAN relocatable row binary 
card image with the exception that the 9-left row of 
the image contains the colimin binary bits (bits 10 
and 12 of the 9-left row) to enable off-line punching 
of the cards. It should be noted that these bits have 
been added to the check sums of the card images. 

Punched Card Output 

If Sense Switches 1 and 4 are UP, FORTRAN pro- 
duces the following punched card output: 

1. Compilation of a main program: 
BSS loader (nine cards) 
Program card 

Program in relocatable binary 
Transfer card (9 punch in col- 1) 

2. Compilation of a subprogram: 
Program card 

Program iil relocatable binary 
NOTE: The BSS loader and the Transfer card 
are not punched out for subprograms. 



CHAPTER 10: ERROR HALTS IN THE BSS LOADER 



Location 
(octal) 

77672 



77733 



Reason for Halt 



Procedure 



Instructions overlap the 
symbol table of the 
Loader. 



More than 20 sub- 
routines are missing 



77746 



Missing subroutines. 



Terminate loading. Com- 
bination of program and 
transfer vectors too long. 
Rewrite prograra. 
If missing subroutines are 
immediately available, 
ready them in the card 
reader and depress the 
Start key to read the cards. 
See items (a) and (b) below 
for further description of 
this stop. 

This stop indicates that the 
Transfer card has been 
reached. It is caused by 
one of two occurrences: 
(a) Loading has been completed, but at least one of 
the subroutines called for is missing. Location 
77432g contains the BCD name of the first missing 
subroutine, location 77433g, the second, etc. 
The list of missing subroutine names is terminated 
by a word of zeros. If the missing subroutines are 
immediately available, they may be loaded with- 
out starting the entire loading process over again. 
Place another Transfer card (9 punch in col 1) at 
the end of the routines, ready them in the card 
reader, and depress the Start key. 
The Transfer card was encountered prematurely 
and should have been withdrawn. Be certain 
that a Transfer card is the last card at the end of 
the deck and depress the Start key. 



CHAPTER 11: OBJECT PROGRAM HALTS 

There are 16 standard error stops in FORTRAN 
object level input/output routines . Under Monitor 
control, EXEM handles these error stops by pro- 
viding error messages and, where appropriate, op- 
erator options. When execution is not under Monitor 
control , the error stops can be identified by the 
HPR instruction in the storage register. 



(b) 



Halt Reason for Halt 

HPR 0, 1 Illegal control character 
in FORMAT statement. 



Location 






HPRl, 




Illegal character in c 


(octal) 


Reason for Halt 


Procedure 


HPR 2, 
HPR 3, 




field. 


77432 


Instructions and data 


Terminate loading. Com- 


HPR 4, 








overlap. 


bination of instructions and 
common data too long. 
Rewrite program. 


HPR 5, 




Illegal character 
encountered in octal 
input data. 


77613 


Checksum error on 


Depress the Start key to 


HPRO, 


2 


Illegal data card 




cards. 


accept information. 






character. 


77615 


I/O check indicator 


Start entire loading proc- 










ON. 


ess over. 


HPR 1, 


2 


EOF at card reader. 


77616 


EOF at the card 
reader. 


Depress the Start key to 
read cards. 









Procedure 

Depress the Start key to 
treat as end of format. 
Depress the Start key to 
cause that character to be 
treated as a zero. 

Depress the Start key to 
treat as zero. 

Correct card. Ready it in 
the card reader and depress 
the Start key. 
Ready more cards and de- 
press the Start key to con- 
tinue reading. 
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Procedure 

Depress the Start key to 
continue. 

Depress the Start key to 
read once more. 
Depress the Start key to 
ignore the remainder of 
the words in the record. 
Depress the Start key to 
store zeros in the remain- 
ing list items. 
Depress the Start key to 
read the next file. 
Depress the Start key to 
continue. 

Depress the Start key to 
erase and write once 
more. 

Depress the Start key to 
erase once more. 
MQ contains the tape 
address. Dial the new 
tape and depress the Start 
key to continue writing. 
To proceed, enter the 
instruction AXT n, 4; 
where n is the unit address 
as it would appear in the 
Unit (lOU) table (for ex- 
ample: 1201). 
Depress the Start key to 
treat e^ as x. 
Depress the Start key to 
treat negative argument 
as positive argument. 
For X = 0, depress the Start 
key to treat log x = 0. 
For negative argument, 
depress the Start key to 
treat as positive argument. 



NOTE: The input/output routine , in which any of 
the above stops are encoimtered , can be recognized 
by the tag of the HPR, as follows: 



Halt Reason for Halt 

HPR 0, 3 I/O check light turned 

on by last read instruction. 

HPR 1, 3 Tenth consecutive failure 
in reading tape. 

HPR 1, 4 Physical record size ex- 
ceeds buffer size. 

HPR 2, 4 List exceeds logical rec- 
ord length. 

HPR 2, 3 EOF in reading tape. 

HPR 0, 5 I/O check light turned on 

by last write instruction. 
HPR 1, 5 Fifth consecutive failure 

in writing tape after 

erasing. 
HPR 2, 5 Failure in erasing tape 

(bad spot). 
HPR 3, 5 End of Tape encountered 

while writing tape. 



HPR 0, 6 Unit address not found 
in Unit table (lOU). 



HPR 1, 7 Exponent exceeds range 

of DEXP. 
HPR 2, 7 Negative argument 

illegal for DSQRT. 

HPR 3, 7 Zero or negative argu- 
ment illegal for DLOG. 



Tag 


Routine Labeled 


1 


9IOH 


2 


9CSH 


3 


9RER 


4 


9TSB 


5 


9WER 


6 


9I0S 


7 


9DXP 




9DSQ 




9DLG 



standard errors are described in Chapter 11. When 
loading is under Monitor control, EXEM monitors 
these errors. However, when object programs are 
loaded with the BSS loader , an indicative HPR in the 
storage register accompanies a machine stop under 
the control of EXE. 

EXEM, after diagnosing all standard errors ex- 
cept an end of file in reading tape , transfers control 
to the appropriate Error Record - that is, the 
Source Error Record or Machine Error Record - 
and a message is printed and execution terminated. 
The option to retry the job is given for machine 
errors. However, in the case of an end of file in 
reading tape, EXEM provides the operator with the 
option to continue execution. 

If the library routines that are required for exe- 
cution are requested during compilation (Sense 
Switch 5 is DOWN or the LIBE card is in the source 
deck) , the library routine EXE is punched. If sub- 
sequently the resulting object programs , including 
these library routines , are loaded under Monitor 
control, BSS control will recognize that EXEM is 
required , rather than EXE , and search the library 
for EXEM. 

The procedure for end of tape while writing is as 
follows: 

The full tape is backspaced over the record whose 
writing detected the end of tape , and end of file is 
written and the tape is rewound. A message is 
printed requesting that the tape which turned on the 
end-of-tape indicator be changed. When the new tape 
is ready , the rewound tape dialed off and the Start 
key depressed, execution resumes by writing on the 
new tape the record which caused the end-of-tape 
indicator to be turned on. 

The procedures followed by the EXEM for the 16 
standard errors which may occur in FORTRAN 
object level input/output routines are: 



CHAPTER 12: EXECUTION ERROR MONITOR 

The Execution Error Monitor, EXEM, provides 
error messages and, where appropriate, operator 
options for the standard errors which may occur in 
FORTRAN object level input/output routines. These 



I/O 






Reason 




Routine 


Halt 




for Halt 




lOH 


HPRO, 


1 


Illegal control 
character in 
FORMAT state- 
ment. 


Write off-line: 

ILLEGAL CHARACTER 

IN FORMAT STATEMENT. 

Print on-line and write 

off-line: 

EXECUTION TERMINATED 

BY EXEM. 

Transfer control to Sign-on. 


lOH 


HPR 1, 




Illegal 


Write off-line: 




HPR 2, 




character 


Input buffer which contains 




HPR 3, 




in data 


data which caused stop. 




HPR 4, 




field. 


ILLEGAL CHARACTER IN 




HPR 5, 




Illegal 
character in 
octal input data. 


DATA ABOVE OR BAD 
FORMAT. Print on-line 
and write off-line: 
EXECUTION TERMINATED 
BY EXEM. 
Transfer control to Sign-on. 
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I/O 
Routine 

CSH 



Halt 



HPRO, 2 



Reason 
for Halt 

Illegal data 
card character. 



I/O 
Routine 



Halt 



Reason 
for Halt 



CSH 



HPR 1, 2 EOF at card 
reader. 



RER 



HPR 0, 3 I/O check light 
turned on by 
last read 
instruction. 



RER 



HPR 1, 3 



Tenth consecu- 
tive failure in 
reading tape. 



RER 



HPR 2, 3 EOF in reading 
tape. 



TSB 



HPR 1, 4 Physical record 
size exceeds 
buffer size. 



TSB 



HPR 2, 4 List exceeds 
logical record 
length. 



Write off-line: 

ILLEGAL CHAFIACTER ON 

DATA CARD. 

Print on-line and write 

off-line: 

EXECUTION TERMINATED 

BY EXEM, 

Transfer control to Sign-on. 

Write off-line: 

END OF FILE AT CARD 

READER. 

Print on-line and write 

off-line: 

EXECUTION TERMINATED 

BY EXEM. 

Transfer control to Sign-on. 

Print on-line and write 

off-line: 

I/O CHECK LIGHT TURNED 

ON BY LAST P.EAD 

INSTRUCTION ON TAPE 

XX. 

EXECUTION TERMINATED 

BY EXEM. 

Print on-line options: 

TO RETRY THIS JOB, 

PUSH START. TO GO TO 

NEXT JOB, DEPRESS SIGN 

KEY AND PUSH START. 

Print on-line and write 

off-line: 

REDUNDANCY 

ENCOUNTERED IN 

READING TAPE XX. 

EXECUTION TERMINATED 

BY EXEM. 

Print on-line options: 

TO RETRY THIS JOB, 

PUSH START. TO GO TO 

NEXT JOB, DEPRESS SIGN 

KEY AND PUSH START. 

Print on-line and write 

off-line: 

END OF FILE TAPE XX. 

Print on-line options: 

TO CONTINUE THIS JOB, 

PUSH START. TO GO TO 

NEXT JOB, DEPRESS SIGN 

KEY AND PUSH START. 

Write off-line: 

PHYSICAL RECORD SIZE 

EXCEEDS BUFFER SIZE. 

Print on-line and write 

off-line: 

EXECUTION TERMINATED 

BY EXEM. 

Transfer control to Sign-on. 

*Write off-line: 

LIST EXCEEDS LOGICAL 

RECORD LENGTH. 

Print on-line and write 

off-line: 



KPR 0, 5 I/O check lie 
turned on by 
last write 
instruction. 



WER 



WER 



WER 



HPR 1, 5 Fifth consecu- 
tive failure in 
writing tape 
after erasing. 

HPR 2, 5 Failure iv. 

erasing tape. 



HPR 3, 5 End of tape 
encountered 
while writing 
tape. 



lOS 



HPR 0, 6 Unit address 
not found in 
Unit table. 



DXP 



DSQ 



HPR 1, 7 Exponent ex- 
ceeds range of 
DEXP. 

Permitted range 
for exponent is 
X < 88.028. 



HPR 2, 7 Negative argu- 
ment illegal 
for DSQRT. 



EXECUTION TERMINATED 

BY EXEM. 

Transfer control to Sign-on. 

Print on-iine and write 

off-line: 

I/O CHECK LIGHT TURNED 

ON BY LAST WRITE 

INSTRUCTION ON TAPE 

XX. 

EXECUTION TERMINATED 

BY EXEM. 

Print on— lin'* '^^'*"i'^nsi 

TO RETRY THIS JOB, 

PUSH START. TO GO TO 

NEXT JOB, DEPRESS SIGN 

KEY AND PUSH START. 

Print on-line and write 

off-line: 

REDUNDANCY WRITING 

TAPE XX. EXECUTION 

TERMINATED BY EXEM. 

Print on-line options: 

TO RETRY THIS JOB, 

PUSH START. TO GO TO 

NEKT JOB, DEPRESS SIGN 

KEY AND PUSH START. 

Print on-line: 

END OF TAPE WRITING XX, 

CHANGE AND PUSH START. 

The full tape is backspaced, 

an EOF is written and the 

tape is rewound. Execution 

resumes with the record 

which hit the EOT being 

written on the new tape. 

Write off-line: 

U>nT ADDRESS NOT 

FOUND IN lOU FOR 

LOGICAL UNIT XX. 

Print on-line and write 

off-line: 

EXECUTION TERMINATED 

BY EXEM. 

Transfer control to Sign-on. 

Write off-line: 

EXPONENT EXCEEDS 

RANGE OF DEXP. 

Print on-line and write 

off-line: 

EXECUTION TERMINATED 

BY EXEM. 

Transfer control to Sign-on, 

Write off-line: 

NEGATIVE ARGUMENT 

ILLEGAL FOR DSQRT. 

Print on-line and write 

off-line: 



*EXEM may be reassembled to permit the storing of zeros in the 
remaining list items by changing the transfer for HPR (2, 4) stop to 
PZE CONT 
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I/O 




Reason 




Routine 


Halt 


for Halt 


EXECUTION TERMINATED 

BY EXEM. 

Transfer control to Sign-on. 


DLG 


HPR 3, 7 


Zero or negative 


Write off-line: 






argument 


ZERO OR NEGATIVE 






illegal for 


ARGUMENT ILLEGAL FOR 






DLOG. 


DLOG. 

Print on-line and write 

off-line: 

EXECUTION TERMINATED 

BY EXEM. 

Transfer control to Sign-on. 



The input/output routine , in which any of the above 
stops are encountered , can be recognized by the tag 
of the HPR, as follows: 



Tag 



Routine Labeled 



1 9I0H 

2 9CSH 

3 9RER 

4 9TSB 

5 9WER 

6 9I0S 

7 9DXP 
9DSQ 
9DLG 

If an installation wishes to change the procedure 
for any given error condition, EXEM may be re- 
assembled with the following changes. The address 
portion of the relevant entry in the Transfer table 
(starting in symbolic location CODE) may be changed 
and additional programming corresponding to this 
change inserted. For example , if a dump is desired 
whenever an HPR 0, 6 error is encountered, the 
appropriate entry in CODE may be changed from 
PZE NOUNIT to PZE HPR 0, 6 and the instruction 

HPR 0, 6 CALL DUMP 
may be inserted before BUFSIZ EQU 22. The sub- 
sequent reassembly will put DUMP in the transfer 
vector of EXEM and the library subroutine 9DMP 
will be loaded with the program (in addition to all 
other required routines). Then, in the case of an 
HPR , 6 error , EXEM will be entered and will 
call the Dump subroutine. A dump will be given and 
control will transfer to Sign-on. Note that since the 
messages for all error conditions except EOF read- 
ing and EOT writing are located in Records 10 or 11 , 
the appropriate message will not be given if EXEM 
is changed in this way. However, the appropriate 
error code would appear in the sense indicators in 
the dump (assuming that the additional programming 
inserted did not destroy the contents of the sense 
indicators). 

For each error stop HPR (A,T), the sense indi- 
cators contain an entry to EXEM 
A, T, RETURN 



where RETURN is the absolute address of the point 
in the I/O subroutine with which execution would 
resume if the error condition which caused the stop 
could be corrected. Thus, in the example above, 
the sense indicators in the dump would contain 
0, 6, RETURN. 

EXEM is also used for source errors arising in 
Double-Precision Complex Arithmetic Package. 
The messages for these errors are located in Source 
Error Record 11. Execution is terminated in all 
these cases. 

9XEM occupies 610g locations. 



CHAPTER 13: MONITOR CONTROL CARDS AND 
UTILITY CARDS 

Monitor Control Cards 

These cards have an "*" in column 1, and, with the 
exception of the I.D. card, the mnemonics are in 
columns 7-72. The I.D. card may contain informa- 
tion in columns 2-72. 



Card and 
Mnemonic 

DATE 



I.D. 



XEQ 



lOP 



DATA 



CHAIN(R,T) 



END TAPE 



LIBE 



LIST; LISTS 



Position in Deck 

Optional. If present, 

must precede I. D. 

card and/or follow the 

Monitor START card. 

The first card in a job, 

except if DATE card is 

present. 

Must follow the I. D. 

card of a job to be 

executed. 

Optional 



Must follow the physi- 
cally last program of a 
job to be executed and 
precedes the data, if 
any, for that job. 
Must precede the physi- 
cally first program of 
each Chain link. 
Must follow the last 
file on the input tape. 
Must immediately pre- 
cede source program 
to which pertinent. 



Must immediately pre- 
cede source program to 
which pertinent. 



Function 

Provides date for printout 
of page title. 



Used for identifying and 
accounting information. 
Signals beginning of a job. 
Instructs the Monitor that 
this job is to be executed. 

Signals to Monitor that 
the I/O Package should re- 
main in core with the 
object program. 
Signals to Monitor that 
no more programs in this 
job follow on the input 
tape. 

Identifies the Chain link by 
record number, R, and 
tape, T. 
Signals end of input. 

Instructs the Monitor to 
search the FORTRAN 
library for subroutines 
during compilation and to 
include these with the 
object program. 
Instructs the Monitor to 
list the object program 
in FAP-type language on 
the output tape, in two 
or three column format. 
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Card and 
Mnemonic 



Position in Deck 



CARDS ROW Must immediately pre- 
cede source program to 
which Dertinent, 



CARDS Must immediately pre- 

COLUMN cede source program to 

which pertinent. 



DEBUG Must immediately fol- 

low the last source pro- 
gram, if any, and pre- 
cede the debug cards 
for each job or link of 
a Chain job. 

LABEL Must immediately pre- 

cede source program to 
which pertinent. 



PACK Must immediately pre- 

cede the source program 
to which it applies. 

PRINT Must immediately pre- 

cede the source pro- 
gram to which it applies. 

ROW Must immediately pre- 

cede the source program 
to which is applies. 

SYMBOL Must immediately pre- 

TABLE cede source program to 

which pertinent. 

iAP Must immediately pre- 

cede FAP cards and fol- 
low control cards for the 
FAP program. 

PAUSE Optional. 



Function 

Instructs the Monitor to 
punch on-line standard 
FORTRAN relocatable 
row binary cards, pre- 
ceded by a BSS loader if 
a main program. 
Instructs the Monitor to 
punch on-line column 
binary relocatable cards 
(no loader) and not to 
stack the binary output 
on tape B4 for peripheral 
punching . 

Instructs the Monitor to 
prepare to read and proc- 
ess debug cards. 



Instructs the Monitor to 
label off-line card out- 
put in accordance with 
information on appro- 
priate input card. 
Instructs the Monitor to 
pack records on the off- 
line listing tape. 
Instructs the Monitor to 
print on-line all the in- 
formation contained on 
the listing tape. 
Instructs the Monitor to 
stack relocatable row 
binary cards on the pe- 
ripheral punch tape. 
Instructs the Monitor to 
punch a symbol table. 

Instructs Monitor to per- 
form FAP assembly on 
the following FAP pro- 
gram. 

Causes a machine halt 
during reading of input 
tape. 



Utility Cards 

START and DUMP Cards 

1. START. This is a single self-loading binary 
OoTki requixcu lO initiate Monitor processing. 
The START card rewinds the input tape only 
when the START card is followed by the input 
deck. 

2 . DUMP. This card causes the Monitor to call 
the Dump program (Record 2) to dimip all of 
core storage in octal. The following keys are 
interrogated: 

Sign key: 

UP After dumping, proceed to next job 

on input tape. 
DOWN After dumping, continue processing 

current job on input tape. 

Keyl: 

UP No mnemonics on dump. 

DOWN Mnemonics. 

The contents of locations 0, 1, and 2 are 

destroyed by dumping. 

RESTART Cards. These cards permit a continu- 
ation of Monitor processing when it is stopped at 
other than standard diagnostic stops. 

1. RESTART THIS JOB . This is a single self- 
loading binary card. This card repositions the 
input tape at the beginning of the current job 
and initiates Monitor processing. 

2. RESTART nth JOB . This is a single self- 
loading binary card. This card positions the 
input tape at the beginning of the nth job 
(where n is entered in the address of the keys) 
and initiates Monitor processing. 

3. RESTART BY GOING ON TO NEXT JOB. The 
START card performs this function. 

4. CONTINUE. This is a single self-loading 
binary card. It initiates Monitor processing 
at the next program of this job. 
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PART 2: 7090/7094 FORTRAN II OPERATING UNDER THE 
7090/7094 BASIC MONITOR (IBSYSJ 



Introduction 

Part 2 of this manual contains information concerning 
the operation of the FORTRAN II Processor under 
the 7090/7094 Basic Monitor (IBSYS). 

The FORTRAN n Processor under the Basic 
Monitor operates in the same manner as the 
FORTRAN Monitor System operates in the independ- 
ent version 7090/7094 FORTRAN II discussed in 
Part 1; compilations, FORTRAN Assembly Program 
(FAP) assemblies, and binary object programs 
from previous compilations or assemblies may be 
executed as parts of a single job. FORTRAN II 
jobs may also be stacked as input along with jobs 
for other processors operating under the Basic 
Monitor . 

The FORTRAN n Processor may reside on tape 
or disk. Substantial savings in setup time are 
achieved when the Processor operates under the 
Basic Monitor and resides on disk. 

Knowledge of the contents of the IBM 7090/7094 
Operating Systems: Basic Monitor (IBSYS) reference 
manual, Form C28-6248 is assimied. 



Basic Monitor Control Cards 



The following is an example of an input deck setup 
for the FORTRAN Processor operating under IBSYS: 



All Basic Monitor Control Cards must have a $ in 
column 1. The specific control instruction is writ- 
ten in columns 2-6. The following is a list of all 
Basic Monitor Control Cards recognized by the 
FORTRAN Monitor, and the general action taken 
when each is encountered. For further information, 
see the section "Sign -On Record." 

1. $EXECUTE FORTRAN ~ When this card is 
recognized by IBSYS, it causes FORTRAN to re- 
ceive control; when it is recognized by FORTRAN, 
it sets the FORTRAN Monitor mode of the Monitor. 

2. $EXECUTE IBSFAP ~ When this card is 
recognized by IBSYS, it causes FORTRAN to re- 
ceive control; when it is recognized by FORTRAN, 
it sets the IBSFAP mode of the Monitor. 

3. $JOB — This card defines an IBSYS job; it is 
not to be confused with $ID, which identifies a 
FORTRAN job. 

4. $ID — This card or an *-type I.D. card begins 
a FORTRAN job deck and may be preceded only by 
IBSYS control cards or a FORTRAN DATE card. 

5. $STOP — This card signifies the end of a job 
stack. 

6. $IBSYS or $any other text — This card causes 
control to be returned to IBSYS. 



Column 1 Column 16 

$DATE \ 
$ATTACH I 

$joB ; 

$EXECUTE FORTRAN 

(end of file) 
$ID 



(end of file) 

$JOB 

$EXECUTE FORTRAN 

(end of file) 

* DATE 

* any text 



(end of file) 

$EXECUTE 

$ID 



(end of file) 
$IBSYS 



$STOP 



Comment 



IBSYS control cards, as necessary. 



(This may be IBSFAP, depending on 
the nature of the job. ) 

(This may be *-type I. D. card. ) 
FORTRAN Monitor control cards 
and job deck as described in 
Part I. 



(Optional - used for this FORTRAN 

job only. ) 

(Or $ID. ) 

FORTRAN job deck No. 2. 



FORTRAN (Optional.) 



FORTRAN job deck No. 3. (This 
job is dependent on the successful 
completion of job No. 2 since it 
lacks a $JOB card. Its execution 
will be prevented if job No. 2 failed. ) 



Any series of jobs for any components 
of the IBSYS Basic Monitor. 
End of job stack. 



CHAPTER 14: OPERATING INFORMATION 

In order to provide uninterrupted operation, all jobs 
must operate under control of the Basic Monitor. 
The FORTRAN single -compile mode of operation is 
not available. 

The Basic Monitor Nucleus (IBNUC) and Trap 
Supervisor (lOEX) will remain in core storage at all 
times. The origin of the FORTRAN Processor and 
of the object programs will, therefore, be approxi- 
mately 2000 (decimal). 

Starting, restarting, and dumping procedures are 
handled by the Basic Monitor. The utility cards for 
these procedures , supplied with the independent 
7090/7094 FORTRAN II System are consequently not 
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IBSYS. The reader is referred to the Basic Monitor 
(IBSYS) reference manual for information regarding 
these procedures. 

The SYSNAM of the FORTRAN Processor is 
FORTRA. The $EXECUTE control card may, if 
desired, refer to FORTRAN, since the terminal N 
will have no effect. 

The SYSCOR location in IBNUC may not have a 
SYSEND value of less than 77700 (octal). The 
SYSORG cannot be adjusted unless the FORTRAN 
Processor is reassembled. The Processor will use 
all available space in core storage above lOEX ex- 
cept for the top 100 (octal) locations which may be 
used by installation accounting routines , if desired. 

When FORTRAN object programs are in execution, 
location 2 will not contain the standard IBSYS trans- 
fer instruction. Care should be exercised before 
executing an STR instruction. Location 2 will be re- 
stored by the FOP.TP.AN Processor after execution 
has terminated. 

FORTRAN Processor Input and Output 

Processor input and output is performed by means 
of the FORTRAN Input/Output Package (lOP) which 
in turn utilizes lOEX. See the bulletin IBM 709/7090 
Programming Systems: FORTRAN - Input/Output 
Package for 32K Version, Form J28-6190. It should 
be noted that the correspondence between logical 
tape designations used in FORTRAN source program 
input/output statements and the actual tape assign- 
ments at object time is set in the Unit table (lOU) in 
the FORTRAN Library. The correspondence is not 
set in the lOP Unit table. 

Input to the Processor must be on tape; no pro- 
vision is made for reading cards on-line. Except 
for the IBSYS features described under "Control 
Cards" above, the input deck must be prepared as 
indicated in the FORTRAN Monitor Section of Part 1, 
The input for a FORTRAN job must be separated 
from other input, i.e., there must be an end of 
file following each FORTRAN job. 

Processor output consists of BCD output on the 
listing tape and binary output on the peripheral punch 
tape. The binary output for each job occupies one file 
and is preceded by a separate file containing the I. D. 
card for that job. End of file is not written on the 
punch tape when the Processor is in the assemble- 
only (IBSFAP) mode. The standard output options 
include the effect of both the PACK and LABEL con- 
trol cards; therefore, these are unnecessary. 

For a Chain job the I. D. card occupies the first 
file and is followed by a separate file for the binary 
output of each Chain link. 



xape unit Assignment 

The lOP Unit table is used to assign FORTRAN 
Processor logical units to Basic Monitor SYSUNT 
functions. 





FORTRAN 






Logical Unit 


SYSUNI 




Function 


Number 


Function 




System 


1 


SYSLBl 




Intermediate 


2 


SYSUT3 




Intermediate 


3 


SYSUT4 




Intermediate 


4 


SYSUTl 




Input 


5 


SYSINl 




Listing Output 


6 


SYSOUl 




Punch Output 


7 


SYSPPl 




Intermediate 


8 


SYSUT2 




(required only 








for Chain jobs) 










' 9 


SYSCKl 






10 


SYSCK2 




(required only 


11 


SYSUAV, 0, 


1 


if needed for 
FAP update 


12 


SYSUAV,1, 


1 


13 


SYSUAV, 0, 


2 


jobs) 


14 


SYSUAV, 1, 


2 




15 


SYSUAV, 0, 


3 




16 


SYSUAV, 1, 


3 



Logical units 1 through 7 are the only ones neces- 
sary for the normal FORTRAN job. Logical unit 8 
is necessary only for a Chain job or for updating, 
and 9 through 16 , only if needed for FAP updating 
jobs. 

For maximum efficiency on a two-channel machine, 
it is suggested that SYSUNI assignments in IBSYS 
should be such that logical units 1, 4, 5, 6, and any 
used as update input tapes be connected to one chan- 
nel, while 2, 3, 7, and 8 be connected to the other. 

Logical unit 1 (SYSLBl) may be assigned to a disk 
file. All other units must be 729 tape drives. 

\¥hen not used for a Chain job , logical units 8 
through 16 are available for FAP update runs. As- 
signment of these tapes may be made by means of 
SYSUNI functions or through the Unit Availability 
tables (SYSUAV). SYSUAV entries in the lOP Unit 
table are used as follows: 

Address: The tape function (SYSUAV) 

Tag: The channel number (0 through 7 



Decrement: The relative tape number in the Unit 
Availability table for that channel 
(1 indicates the first tape available 
for that channel; 2, the second; etc.) 
Any units taken from the availability chain during 
a FORTRAN job are restored to it upon completion 
of the job. 
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In order to assure optimum cross-channel buffer- 
ing for an update run, it will, of course, be neces- 
sary for the programmer to take into consideration 
the IBSYS assignments made at his installation. 

Logical units 1 through 7 are checked for availa- 
bility at the beginning of each job. If any of these 
SYSUNI functions have not been assigned, an on-line 
message will be printed and control returned to 
IBSYS to skip to the next IBSYS job. The operator 
may depress Sense Switch 1 and read-in, on-line, 
the necessary $ATTACH and $AS control cards 
followed by a $RESTAKT control card. SYSINl 
will then be backspaced to the current $IBSYS job 
and processing will resume at that point. 

Logical units 8-16 are not checked for availability 
at the beginning of a job. For example, if one of 
them is referenced by a Chain job (which requires 
unit 8) or during a F AP update run , and it is found 
not to be available when required, an on-line error 
message will be printed notifying the operator that 
logical tape N is not in the Unit table. Control will 
transfer to the FORTRAN Machine Error Record 
where an operator action pause will occur. The re- 
try option should not be taken at this time, since the 
job may be successfully rerun only after the neces- 
sary SYSUNI assignments have been made. 

To alter unit assignments, it is necessary either 
to change the SYSUNI Table in IBNUC , with IBSYS 
$ATTACH cards or by reassembly, or to reassemble 
the lOP Unit Table with the desired tape function 
names. 

The FORTRAN Processor will set density on logi- 
cal tape units 1-7 according to the SYSUNI entries 
for those tapes. An installation may, if desired, 
cause the FORTRAN Processor not to set density by 
inserting a non zero address in symbolic location 
TAPNO of the lOP Unit table. 



Tape Error Procedures 

In addition to the FORTRAN Input/Output Package 
error procedures , read or write errors are also 
handled by lOEX. Messages appear on-line to indi- 
cate tape errors found by lOEX as follows: 

NOISE RECORD DISCARDED 

lOEX has signaled lOP that a noise record has been 
read. lOP verifies that it is a noise record, the 
message is printed, and the noise record is ignored. 

25 ERASES DURING WRITE 

lOEX has rewritten a record and found redundan- 
cies twenty-five times. Erasures continue until the 
record has been successfully written. 

NOISE ON ERASE 

lOEX, while erasing, has found a bad spot which 
cannot be removed. This remains as a noise record. 
Further attempts to write are continued until a 
record has been written successfully. 

I/O CHECK 

lOEX has found that the I/O Check Indicator was 
ON and pauses after printing the message. Since the 
channel cannot be determined, no indication is given 
to the FORTRAN Processor. If the operator 
depresses the Start key, FORTRAN will proceed as 
if the check has not occurred. 

EOT ON ERASE 

lOEX has sensed the end-of-tape indicator while 
erasing. This condition causes an unconditional halt 
in IBSYS. 

CHAPTER 15: THE FORTRAN MONITOR 



Output Tape Switching 

If the FORTRAN Monitor listing tape (SYSOUl) 
reaches the end of tape, or if permanent redundancies 
occur during a FORTRAN job, the FORTRAN Input/ 
Output Package (lOP) checks the SYSUNI table for an 
alternate output unit (SYSOU2). If it is available, lOP 
will switch the SYSUNI entries for the two units and 
print on-line notification of the tape alternation. When 
SYSOU2 is not available , or if it is identical to 
SYSOUl , a request to mount a new tape is printed. In 
either instance, an end-of-file mark, a trailer label, 
and a second end-of-file mark are written on the 
completed tape and it is unloaded. The record which 
could not be written on the old tape is written on the 
new one, and the job is continued. 



In general, the FORTRAN Monitor operates under 
IBSYS as it does in the independent version of 
FORTRAN II. The sections which follow describe the 
cases in which the operation of the tvt'O systems differs. 

Monitor Flag Cells 

The first 12 locations from SYSORG to the symbolic 
location BOTTOM (the origin of FORTRAN) are used 
as a communications region as follows: 

BOTTOM-12 contains a flag when the FORTRAN 

Processor is operating. 
BOTTOM-11 through BOTTOM-5 are used to save 
machine registers and for communication with 
the DUMP routine. 
However, BOTTOM-4 through BOTTOM-1 are 
FLAGBX, LINECT, DATEBX, and PRCBRK as 
they are in the independent version of FORTRAN, 
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IBSYS Flag Cells 

The IBSYS flag cells are: 

1. SYSJOB ~ Since the FORTRAN Monitor re- 
stores the availability chain when it uses it, the 
"restoration needed" bit in this cell will not cause 
the Monitor to reload IBSUP between jobs. The bit 
in SYSJOB that indicates that a previous IBSYS job 
segment failed will be recognized by Monitor Scan 
and will prevent execution. FORTRAN will set this 
bit on for an assembly or compilation error or if 
execution is terminated by EXEM. 

2. SYSCUR — This cell is used to initially de- 
termine the Monitor mode. If SY'SCUR contains 
IBSFAP when FORTRAN receives control, the 
assemble-only mode is set; if it does not contain 
IBSFAP, the execution mode is set. Each FORTRAN 
record loads SYSCUR with its name. 

The publication IBM 7090/7094 IBSYS Operating 
System: System Monitor (IBSYS) , Form C28-6248-1, 
contains further information on the IBSYS flag cells. 

FORTRAN Input/Output Package (lOP) Record 

lOP is used by the FORTRAN Processor for all in- 
put and output functions. It occupies upper memory 
at all timBS during a poRTRAN run except when the 
object program is in execution. Calling sequences 
to lOP are transformed into calling sequences to 
lOEX so that lOP is an interface between FORTRAN 
and lOEX. 

FORTRAN System records are loaded through 
lOP, which uses the SYSLDR routine in lOEX. 

The Basic Monitor passes control directly to lOP, 
which is the first record of the Processor. When 
this occurs , lOP resets all flag cells . Control is 
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tion. When this occurs, lOP recognizes the indica- 
tor in BOTTOM-12 and does not reset the flags. 
Control is then passed from lOP to the System Posi- 
tioning record which follows it. 

System Positioning Record 

The card-to-tape simulator which occupies this rec- 
ord in the independent version of FORTRAN is not 
used under IBSYS. 

This record calls the next FORTRAN record 
(Dump, Sign-On, Machine Error, or Source Error) 
according to indicator bits in FLAGBX. 

The FORTRAN Dump record is used for object 
program dumps only. It is called by the DUMP (or 
PDUMP) library routine. 

The core storage locations from BOTTOM-11 
through BOTTOM-5 are used as a communications 
region between the DUMP (or PDUMP) library rou- 
tine and the Dump record. 






j.ixe contents of core SLOicigt; is aavea lor tne dump 
on logical unit 2 (SYSUT3). If the lOP Unit table has 
been changed so that logical unit 2 is not SYSUT3 , the 
DUMP library subroutine must be changed accord- 
ingly. 



_Sign-On Record 

At the beginning of each job, control is passed to the 
FORTRAN Sign-On record. Sign-On performs the 
following functions: 

1. Ensures that location 2 contains a TTR 
SYSDMP. 

2. Sets the current date from SYSDAT. (This may 
be reset for the current job with a *DATE card. ) 

3. Prints the tape statistics and the line count for 
the preceding job, if necessary. 

4. At this point, a test is made for the assemble- 
only (IBSFAP) mode. If the Monitor is in an IBSFAP 
mode, Sign-On reads cards from SYSINl, processing 
IBSYS control cards (as described in the following 
text) until a card without a $ in column 1 is encount- 
ered. When such a card is encountered. Monitor 
Scan receives control to process it. In the execute 
(FORTRAN) mode, processing proceeds as follows: 

a. An end of file is written on SYSPPi unless 
it is already positioned at the beginning of 
a file. 

b. If SYSINl is not positioned at an end of 
file, or if the preceding card on SYSINl is 
neither the first card of a file nor a $-type 
control card, a file is skipped on SYSINl. 

c. The FORTRAN job I.D. card is now proc- 
essed. This card is defined as the next 
card on SYSINl, with an * in column 1, that 
is not a DATE card. More than one card 
may be read and processed in the search 
for the I . D. card as long as the cards pre- 
ceding the I. D. card are either IBSYS con- 
trol cards or the DATE card. When the 
I.D. card is encountered, the search for an 
*-type I. D. card is discontinued. A *END 
TAPE is treated as an I. D. card and also 
returns control to IBSYS. If any other card 
is encountered, the I. D. card is assumed 
to be missing, and an option is given to the 
operator to use the following as I. D. : 

=*= NO I. D. CARD FOR THIS FORTRAN 
JOB, 

d. The I. D. card is written as a file on 
SYSPPI. 

e. Sign-On retains control and continues to 
read SYSINl until a card other than an 
IBSYS control card is encountered. At this 
point, Monitor Scan receives control to 
process this card. 
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The IBSYS control cards recognized by Sign-On 
and the action taken are as follows: 

1. $EXECUTE — If the operand of the EXECUTE 
is FORTRAN or IBSFAP, the Monitor is set to that 
mode. If the operand is anjrthing else, it is stored 
in the IBSYS communication cell SYSGET and control 
is returned to IBSYS through SYSRET. 

2. $JOB ~ The cell SYSGET is loaded with the 
word "IBSBSR" and SYSRPT is called. If no inter- 
rupt occurs, SYSGET is set to "IBSYST" and SYSIDR 
is called. 

3. $ID — SYSIDR is called. This card is then 
treated as a FORTRAN I. D, card if there has been 
no previous one for this job. 

4. $STOP — The cell SYSGET is set with this 
operation and control returns to IBSYS through 
SYSRET. 

5. $IBSYS or $any other text — Control is re- 
turned to IBSYS through SYSRET. 

When control is returned to IBSYS, Sign-On clears 
the FORTRAN flag in location BOTTOM - 12. 

Sign-On prints tape statistics for the previous job 
on SYSOUl. If an installation wishes to have the 
statistics appear on-line, the operations in both lo- 
cation GTCOM+1 and STAT16+1 should be changed 
to SLN 4. To eliminate the statistics entirely, change 
location HTPSTS+2 to TRA FCTWO. (For elimina- 
tion of tape statistics from BSS control, see the 
section "BSS Control Records.") 

Sign-On may be programmed by an installation to 
handle each accounting job. The top lOOg locations in 
core storage are not used by the FORTRAN Processor 
and may be used to save such desired information. 

FORTRAN Assembly Program (FAP) 

The System Symbol table in FAP contains both 
FORTRAN and IBSYS symbols. 

Logical tapes 8 through 16 may be used for FAP 
update runs. In a Chain job, however, tape 8 is used 
as an intermediate tape by the Processor. 

BSS Control Records 

The BSS Control records load object programs start- 
ing from location BOTTOM. 

One hundred (octal) locations in upper core storage 
are reserved for installation use and are not used by 
the FORTRAN Processor. COMMON is relocated 
downward by this amount during loading; references 
to COMMON in object programs will be changed to 
start from TTSGlg (instead of 774618 as compiled). 
If it is desired to readjust COMMON and not to re- 
serve the top of memory , location COMN should 
be changed so that it contains zero. Also, the value 
of TOPMEM, which is the location of the top of mem- 
ory available for use by the compiler , should be 



changed in the FAP System Symbol table (see FAP 
Manual) and the System should be reassembled. To 
accomplish this for a single job only, a control card, 
when punched as follows , may be used preceding any 
other binary cards in the job deck: 

Column 1: rows 11, 7, and 9 punched 

Column 2: row 12 punched 

Remainder of card blanl^ 
Tape statistics are written both on-line and off- 
line before control is passed to the object program. 
In order to delete the statistics , change location 
TOPRl as follows: 

TRA TOPR2 - to delete tape statistics 

STL NOSTON - to delete statistics on-line 
only 

STL NOSTOF - to delete statistics off-line 
only 

Library Search Records 

The BSS Control Library Search records read block- 
ed library card images from the library file of the 
FORTRAN Processor. The library will be searched 
from a unit other than logical unit 1 if the decre- 
ment of location (LIBT) in lOP is changed to contain 
the unit number. However, if the unit designation 
is not 1 , it must be greater than 8 . 



CHAPTER 16: THE FORTRAN COMPILER 

FORTRAN II source programs written for the inde- 
pendent version of FORTRAN II need not be changed 
to operate under the Basic Monitor. Some extreme- 
ly large , complicated programs may not compile , 
however , because the origin of the Processor is 
higher than the origin of the independent version of 
FORTRAN and because table space is approximately 
2000 (decimal) locations less under IBSYS. With 
this exception, input acceptable to the FORTRAN 
Compiler under IBSYS is also acceptable to the in- 
dependent version of FORTRAN and vice versa. 

Both the FORTRAN Compiler under IBSYS and the 
independent version of FORTRAN compile object 
programs (including calling sequences to library 
routines) in the same manner. 

The FORTRAN Compiler under IBSYS provides an 
option to produce row binary cards and the BSS 
Loader as output. It will not provide row binary 
library routines. If row binary library routines are 
requested, the request is ignored and a message is 
printed to that effect. 

Section Six of the compiler will search the library 
on a unit other than logical unit 1 if the decrement of 
location (LIBT) in lOP is changed. For a descrip- 
tion of this , see the section on Library Search. 
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Except for library routines , column binary decks 
produced by the independent version of FORTRAN 
may be used with IBSYS. Library routines contained 
in the independent version of FORTRAN are not 
compatible with the Basic Monitor. If they are in- 
cluded in such decks, they must be discarded. 

Chain links may be stacked on logical tape units 
2,3, and 4. No change is necessary to source or 
object programs written for or compiled by the in- 
dependent version of FORTRAN when they are used 
in connection with IBSYS. The chain tapes used will, 
however , not necessarily be those specified in the 
source program . Tapes specified as B2 will be 
assigned to logical unit 2 (SYSUT3); tapes specified 
as B3 will be assigned to logical unit 3 (SYSUT4); 
tapes specified as A4 will be assigned to logical 
unit 4 (SYSUTl). Thus, the actual tape unit for 
Chain linlcs will depend on the SYSUNI assignments 
and the lOP Unit table. Note that this assignment is 
independent of the object program lOU table. If the 
SYSUNI designation for logical units used as chain 
tapes (2,3,4) is changed in the lOP Unit table, the 
CHAIN subroutine must be changed accordingly. 

FORTRAN object programs in execution maj de- 
stroy location 2. A transfer to SYSDMP is stored 
there upon completion of execution. 

Object programs are loaded into core storage 
above lOEX. Caution should be exercised in FAP 
coded routines so that lOEX is not destroyed. It 
must remain in core storage at all times for proper 
operation of the Basic Monitor. In a FAP program 
using lOEX, the programmer should make sure 
that the proper channel traps are enabled when nec- 
essary since FORTRAN object program input/output 
library subroutines disable all channel traps. 
UCB words should be updated in FAP routines which 
perform input/output operations independently of 
lOEX so that lOEX can operate successfully for the 
succeeding job. 

CHAPTER 18: THE FORTRAIn LIBRARY 

Library routines supplied with the FORTRAN Proc- 
essor operating under the Basic Monitor must be 
loaded and executed under FORTRAN Monitor and 
Basic Monitor control. There is no provision made 
for execution independent of the Basic Monitor. 
Since library routines supplied with the independent 
version of FORTRAN are not compatible with IBSYS, 
they in turn may not be used with the FORTRAN Proc- 
essor under EBSYS. 

No provision is made to punch row binary cards 
from the library. However, for object programs 
which are too large or otherwise incompatible with 
the Basic Monitor, row binary cards may be pro- 



duced on option. These may be used for loading with 
the BSS loader along with library routines supplied 
with the independent version of FORTRAN. 

The records in the library file are named 9FL001, 
002, etc. They contain 12 relocatable binary card 
^^^.^^^^ ^j.^y^ mc licucooaij uuiiLxoi woras lo coniorm 
with the IBSYS System record format. The last rec- 
ord is a special end-of-file indicator that is used when 
the library resides on disk; it is ignored for a tape 
system, 

FORTRAN Monitor Subroutines 

The EXIT subroutine uses lOEX to call the FORTRAN 
Processor. It sets the flag indicating that control 
should transfer to Sign-On and then calls in lOP. 

Two additional entry points in EXIT are used by 
the other Monitor library subroutines: EXITFN, 
which calls in lOP, and EXSEL, which is an lOEX 

The DUMP (or PDUMP) subroutine uses lOEX to 
save core storage before reading in lOP and the 
Dump record. The upper section of core storage, 
which will be occupied by lOP and the Dump record, 
is saved on SYSUT3. If the lOP Unit table has been 
changed so that logical unit 2 does not corre&pand t© 
SYSUT3 , the DUMP subroutine must be changed 
accordingly. Lower memory, including lOEX, is 
dumped as of the time the Dump record is actually 
operating. It is not dumped as it existed when the 
object program called DUMP or PDUMP. 

The CHAIN subroutine uses lOEX for reading links 
from tape. It does not use the object program (lOU) 
table. It reads links from SYSUNI tapes correspond- 
ing to the lOP Unit table of the Processor. If the 
lOP Unit table assignment is chained for units used 
as Chain links, a corresponding change must be 
made in the CHAIN subroutine. 

The Execution Error Monitor (EXEM) subroutine 
is loaded, and all object program references to (EXE) 
are changed to (EXEM) when loading by the BSS 
Control record of the FORTRAN Monitor. (EXEM) 
handles two lOS subroutine error conditions in addi- 
tion to those handled by the independent version of 
FORTRAN: SYSUNI function not assigned (code 1, 
6) and disk or other illegal unit assigned (code 2,6). 
In both of these cases , (EXEM) will terminate execu- 
tion and transfer control to the Machine Error 
record. 

Input/Output Library 

The FORTRAN l/O library subroutines used by ob- 
ject programs do not make direct use of lOEX. To 
permit uninterrupted operation of IBS YS , they keep 
counts in the Unit Control Blocks updated. The sub- 
routines provide facilities for 729 tape drives, on- 
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line printer , card reader , and card punch; there is 
no provision made for disk files. 

Channel traps are disabled when the flow of the 
object program enters the Input/Output Supervisor 
(lOS) subroutine. (lOS) initializes instructions for 
the I/O unit specified in the SYSUNI or SYSUAV 
tables which correspond to the (lOU) logical unit 
number. An entry point in (lOS) , (UCB) , is set to 
contain the address of the first word of the Unit 
Control Block pertaining to the unit being used. 
Error conditions which cause transfer to (EXE) are 
as follows: (lOU) table entry not found (code 0,6); 
SYSUNI or SYSUAV function not assigned (code 1,6); 
and illegal unit assigned (code 2,6). (lOS) causes a 
transfer to EXIT if an end of file is read on the input 
tape defined by an MZE in the (lOU) table (logical 
tape 6 , SYSINl in the table as distributed) . 

The Input/Output Channel-Unit table (lOU) for 
FORTRAN object programs assigns logical units to 
SYSUNI functions as follows: 

FORTRAN Unit Number SYSUNI Function 



8 16 

lOU TABLE AS FOUND IN THE FORTRAN LIBRARY 

FAP 



SYSLBl 

SYSUT3 

SYSUT4 

SYSUTl 

SYSINl 

SYSOUl 

SYSPPl 

SYSUT2 



Table A shows the symbolic cards which will pro- 
duce the relocatable binary cards in the FORTRAN 
library as distributed. 

All entries in the (lOU) table contain an address in 
the System Unit Function table, SYSUNI, or the Unit 
Availability table, SYSUAV, which are found in the 
Nucleus. The physical unit addresses are specified 
in the Unit Control Blocks in IBNUC. 

The format of the (lOU) table is as follows: 
(IOU)-3 contains the address of the system 

printer entry in SYSUNI 
(I0U)-2 contains the address of the system 

punch in SYSUNI 
(IOU)-l contains the address of the system 

card reader entry in SYSUNI 
(lOU) contains the number of table entries 
following this location. 
The next N locations correspond to the logical tape 
numbers from 1 through N, and contain the address 
of a SYSUNI or SYSUAV table entry. The decrement 
of locations pointing to the SYSUAV table specifies 
the relative unit to be used in the availability chain. 
For example, a 2 in the decrement field specifies 
the 2nd available unit. A negative sign bit defines the 
Monitor input unit. An end of file while reading that 
unit will cause the EXIT subroutine to be called. 





COUNT 


18 








SST 










LBL 


9IOU, X 








ENTRY 


(lOU) 








PZE 


SYSPRT 


SYSTEM PRINTER 




PZE 


SYSPCH 


SYSTEM PUNCH 




PZE 


SYSCRD 


SYSTEM CARD READER 


(lOU) 


PZE 


NTAPES 








PZE 


SYSLBl 


LOGICAL UNIT 1 (SYSTEM) 




PZE 


SYSUT3 




2 (UTILITY) 




PZE 


SYSUT4 




3 (UTILITY) 




PZE 


SYSUTl 




4 (UTILITY) 




MZE 


SYSINl 




5 (INPUT) 




PZE 


SYSOUl 




6 (OUTPUT) 




PZE 


SYSPPl 




7 (PUNCH) 




PZE 


SYSUT2 




8 (UTILITY) 


* 


INSERTIONS AND DELETIONS SHOULD BE MADE 


* 


BETWEEN NTAPES AND (lOU) 




NTAPES 


EQU 

END 


*-(IOU)-l 






TABLE A 











To change the lOU assignment of units, the follow- 
ing procedure is necessary. 

1. Change the appropriate cards in a symbolic 
deck for (lOU) . Table B , below , indicates this 
procedure by an example for 12 units , some 
utilizing tapes in the Unit Availability tables 
(SYSUAV). 

2. Assemble this symbolic deck using FAP. 

3. Replace the two cards labeled 9IOU0000 and 
9IOU0001 in the FORTRAN Library with the 
cards produced from the FAP assembly. 

4. Generate a new system using this library. 



1 


8 


16 




* 


EXAMPLE OF lOU TABLE WITH 12 UNITS 


* 


FAP 

COUNT 22 
SST 








LBL 


9IOU, X 






ENTRY 


(lOU) 






PZE 


SYSPRT 


SYSTEM PRINTER 




PZE 


SYSPCH 


SYSTEM PUNCH 




PZE 


SYSCRD 


SYSTEM CARD READER 


(lOU) 


PZE 


NTAPES 






PZE 


SYSLBl 


LOGICAL UNIT 1 (SYSTEM) 




MZE 


SYSINl 


2 (INPUT) 




PZE 


SYSOUl 


3 (OUTPUT) 




PZE 


SYSUTl 


4 (UTILITY) 




PZE 


SYSUT2 


5 (UTILITY) 




PZE 


SYSUT3 


6 (UTILITY) 




PZE 


SYSUT4 


7 (UTILITY) 




PZE 


SYSPPl 


8 (PUNCH) 




PZE 


SYSCKl 


9 (CHECK OR 
UTILITY) 




PZE 


SYSCK2 


10 (CHECK OR 
UTILITY) 
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FZE :sY5)UAV,,l 



PZE SYSUAV, , 2 



11 (UTILITY - 

1ST IN 

AVAILABILITY 

CHAIN) 

12 (UTILITY - 

2ND IN 

ATTATT A ■DTT Tm"V 



CHAIN) 

* INSERTIONS AND DELETIONS SHOULD BE MADE 

* BETWEEN NTAPES AND (lOU) 
NTAPES EQU *-(IOU)-l 

END 



TABLE B. 

CHAPTER 19: 
PROCESSOR 



MAINTAINING THE FORTRAN 



The FORTRAN Processor under IBSYS is edited by 
means of the System Editor (IBEDT). For a descrip- 
tion of the editing procedure , see the IBSYS ref- 
erence manual. In order to update the FORTRAN 
Library, however, a blocked library tape must first 
be prepared by the FORTRAN Library Editor. 

FORTRAN Library Editor 

The Library Editor record reads binary card images 
from SYSINl and prepares blocked records for the 
FORTRAN Library file on SYSUT4. This file on 
SYSUT4 may then be copied onto the System by 
IBEDT. 

The FORTRAN Monitor control card 
* EDIT LIBE 
causes control to be passed to the Library Editor. 
The Library Editor reads the binary card images from 
SYSINl and prepares blocked records which are writ- 
ten on SYSUT4. An end of file on SYSINl signals the 
end of the input. When this end of file is encountered, 
a trailer label is written on SYSUT4. The trailer 
label signals an end of library on disk and is ignored 
on tape. Also, an end of file is written on SYSUT4 
and control is returned to the Sign-On record. 

Editing with IBEDT 

To update the FORTRAN Processor , including the 

Library file , the following card sequence may be 

used: 

1 7 16 



$REWIND 




SYSUT4 


$EXECUTE 




FORTRA 


$ID 






* 


EDIT LIBE 





(end of file) 

$IBSYS 

$REWIND 



(column binary library routines) 



SYSUT4 



$IBEDT 

*EDIT 

*MODIFY 9F0300 

(column binary modifications) 

±ji^^Qr^Tp-v 9F2iOO 

HLE *REPLACE 9 FLOOl , SYSUT4 

(end of file) 

FORTRAN Processor Records 

The FORTRAN Processor consists of six files on the 
IBSYS System tape. File 1 contains a loader which 
defines the assemble-only mode; file 2 contains the 
FORTRAN Monitor and FAP records; file 3 contains 
the FORTRAN Compiler records and duplicates of 
the last three Monitor records; file 4 contains the 
blocked library records; file 5 contains the General 
Diagnostic record; and file 6 contains the FORTRAN 
Library Editor record. 

The arrangement of records in each file and the 
label which is loaded into SYSCUR for each record 
is shown in columns 1 and 2 of the table below. The 
third column sliows the serialization on the symbolic 
cards and listings for each record of the Processor. 



Record 


Label 
IBSFAP 


Serialization 


IBSFAP loader 


9IBS 


(end of file) 






lOP 


FORTRA 


FOO 


System Positioning 


9F0100 


POA 


Dump 


9F0200 


FOB 


Sign-On 


9F0300 


FOC 


FAP 


9F0400, 9F0500 


FOD, FOE 


Scan 


9F0600 


FOF 


Debug 


9F0700 


FOG 


BSS Control 


9F0800 


FOH 


Library Search 


9F0900 


FOI 


Machine Error 


9F1000 


FOJ 


Source Error 


9F1100 


FOK 


Dummy 


9F1200 


FOL 


(end of file) 






Section 1 


9F1300-9F1700 


FIA-FIE 


Section 2 


9F1800-9F2100 


F2A-F2D 


Section 3 


9F2200 


F3A 


Section 4 


9F2300-9F2500 


F4A-F4C 


Section 5 


9F2600-9F2900 


F5A-F5D 


Section 6 


Oi?3rtQn OT751 nn 


F6A, F6B 


Debug 


9F3200 


see file 1 


BSS Control 


9F3300 


see file 1 


Library Search 


9F3400 


see file 1 


(end of file) 






Library 


9FL001,9FL002, 


L 


(end of file) 


etc. 




General Diagnostic 


9D0000 


XGD 


(end of file) 






Library Editor 


9LEDIT 


ZLED 


(end of file) 
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APPENDIXES 



APPENDIX A: SOURCE LANGUAGE DEBUGGING 
AT OBJECT TIME 

The FORTRAN II Monitor includes facilities for 
specifying object-time storage dumps in FORTRAN 
source program -type language. These dumps are 
dynamic; they are obtained by interrupting execution 
and collecting the desired information , after which 
control is returned to the object program. Provision 
is made for dumping during execution of any main 
program or subprogram as long as execution is 
under Monitor control and the object deck contains 
a Symbol table. 



Symbol Table 

A separate SYMBOL TABLE card is required for 
each main program or subprogram in which dump- 
ing is desired at object time. The Symbol table con- 
tains information regarding the relative location of 
all variables and numbered statements in the source 
program. 

If a Symbol Table is not present for a program , 
all requests for dumps during execution of that pro- 
gram will be ignored (although the debug cards will 
be listed on the output tape) . 



Debug Cards 

These cards become part of the job deck. They may 
be altered at object program load time , thereby per- 
mitting selective dumping without recompiling. The 
debug cards for a job or link must be preceded by a 
DEBUG control card. This packet must follow the 
last source program (if any) and must precede the 
first binary program (if any) of each job or Chain 
link. 



Name Card 

Format: Column 1 N 

Columns 7-72 Subprogram Name 
The main program is indicated by the absence of 
a name on the Name card. All DUMP cards follow- 
ing a Name card refer to the named program. The 
packets of Name cards and their related DUMP cards 
may be in any order. 



DUMP Card 

Format: Columns 1-5 Source statement number 

at which dump is desired. 
Column 6 Continuation (as in 

FORTRAN source lan- 
guage) 
Columns 7-72 Field 1 $ Field 2 $ Field 
3 
This card is used to stipulate the frequency of 
dumps, the criteria for determining whether to 
dump, and the quantities to be dumped. Multiple 
dumps at the same statement are permitted. 

Field 1 

Format: DUMP n-,^ , ng , n^ 

where n-^, n2, and n3 are decimal integers. 

A dump will occur the n^^th time control passes 
through the indicated source statement and will 
occur every n3th time thereafter until it is about 
to exceed n2' The n^ subfield may be omitted, in 
which case it is taken to be one. 

Field 2 

Format: IF (vi ±V2) ai, a2, a.^ 
where vi and V2 are each either a subscripted or 
nonsubscripted unsigned variable or an unsigned deci- 
mal constant. 

Each subscript must be expressed as a single un- 
signed integer as in an EQUIVALENCE statement. 
The quantity V2 may not be omitted and must be of 
the same mode as v^ . 

Each ai is either YES or NO, indicating that a 
dump should or should not occur , depending on 
whether vi ± V2 is negative (ai) , zero (a2) , or 
positive (a3). 

This field provides a method of controlling dump- 
ing by testing the values of source variables. It is 
connected with Field 1 in a logical "and" fashion. 

This field may be omitted; that is, the DUMP card 
may be of tl^ form Field 1 $ Field 3. 

Field 3 

Format: List 

where List specifies the locations to be dumped and 
may include any of the following (each item must be 
separated by a comma): 

1. Subscripted or nonsubscripted variables. The 
mode of the variable is unimportant. Each 
subscript must be expressed as a single un- 
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signed integer as in an EQUIVALENCE state- 
ment. For example, A(2,2), with dimensions 
3x3, must be referenced as A(5). 

2. Arrays 

r ormat; v^^c— c ^ 

where v is an array name of any mode, and c 
and c' are each unsigned integers; c' must be 
larger than c. 

Each item from v(c) to v(c') will be dumped. 
Thus, B(2-5) will cause B(2), B(3), B(4), and 
B(5) to be dumped. 

3. Common Data 

Format: COMMON DATA 

or COMMON DATA (s^-Sg) 
where si and S2 are unsigned integers and S2 
is greater than s-^, or s^ and S2 are variable 
names and S| and S2 are single -word source 
program variables that appear in common. The 
entire COMMON region or the range of 
COMMON from the sith location through the 
S2th location of COMMON are dumped. The 
output of this dump is identified by octal loca- 
tion rather than variable name. 

Example: If Field 3 is coded as COMMON 
DATA (1-25), then, whenever the conditions 
for dumping are met, locations 77431g through 
7746 Ig will be dumped. 

If Field 3 is coded as COMMON DATA (A-B), 
then that portion of COMMON from the location 
containing A to the location containing B will be 
dumped. 

4. Program Data 

Format: PROGRAM DATA 

or PROGRAM DATA (S1-S2) 
This is the same as 3, but pertains to source 
variables that do not appear in COMMON 
statements. 

5. Erasable Data 
Format: ERASABLE 

or ERASABLE (S1-S2) 
This is the same as 3, but pertains only to 
erasable storage, which is a small block of 
locations below the lower limit of program data. 

6. Octal Dump 

Format: OCTAL DUMP 

or OCTAL DUMP (v^-va) 
where v-l and V2 are each either source state- 
ment numbers or subscripted or nonsubscripted 
unsigned variables or COMMON DATA (si) , or 
PROGRAM DATA (si), or ERASABLE (si). 
Subscripts must be one -dimensional and must 
be unsigned integers. V2 must denote a higher 
location than vi. It is also permissible to use 



a mixed form such as COMMON DATA (s^) - 
PROGRAM DATA (82)- 

This causes all of core storage or the range 
from VI up to V2 to be dumped in octal. 

7. Decimal Dum^ 

Format: DECIMAL DUMP 

or DECIMAL DUMP (V1-V2) 
This is the same as 6, but causes all of core 
storage or the range from v-j^ up to V2 to be 
converted according to the G specification 
prior to output. 



8. BCD Dump 

Format: BCD DUMP 

or BCD DUMP (V1-V2) 
This is the same as 6 , but all of core stor^e or 
that part of core storage in the range v^ , up to 
V2 , will be dumped in BCD, i.e. , according to 
the A specification. 

Note: If illegal characters are contained in the 
dump, a BCD dump will not print on a 720 or 
717 Printer, but will print on a 1403. 

G Conversion 

With the exception of octal and BCD dumps (see 
above) all quantities to be dumped are converted 
according to the G specification prior to output. G 
conversion causes the location to be examined, and 
proceeds as follows: 

1. If the prefix, tag, and address are all zero, the 
location is assumed to contain an integer , and I con- 
version is used. 

2. If the prefix, tag, or address is not zero, the 
location is assumed to contain a floating point 
quantity. If the quantity is less than 1/10 or greater 
than lOd + 1, where d is^ 9, E conversion is used; 
otherwise, F conversion is used. 

Description of Dumping 

Dumps are taken with regard to the execution of 
source statements as follows: 

Statement When Dump Occurs 



Arithmetic 


After the statement is evaluated 


IF 


After the expression is evaluated 




and before the transfer 


GO TO (Unconditional and 


Before the transfer 


Computed) 




RETURN 


Before the transfer 


CONTINUE (at end of a DO) 


Before the statement is executed 


CONTINUE (not at end of 


May not be dumped 


a DO) 




Input/Output 


Before the statement is executed 


CALL 


May not be dumped 


DO 


May not be dumped 


GO TO (Assigned) 


May not be dumped 
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Output is on logical tape 6 , intermixed with pro- 
grammed output , and is identified by subprogram 
name (if a subprogram) , statement number , and a 
count indicating the number of times (modulo 32 , 767) 
control has passed through the statement. Variables 
and arrays specifically listed on the DUMP card are 
labeled by name. 

Program data, Erasable data, and COMMON data 
dumps are labeled with respect to the octal locations 
given in the storage map. Octal dumps are labeled 
with the octal locations into which the program has 
been loaded after relocation. 

Lines consisting entirely of zeros are omitted. 
Except for single-word variables and arrays, all 
information is printed six locations to a line. If the 
number of items requested is not a multiple of six, 
the last line will be completed with successive loca- 
tions from core storage. 

After loading a subprogram , a check is made to 
see if dumps are requested in the subprogram. If 
so , the program break is automatically extended to 
include counter tests, calling sequences, and for- 
mats for dumping. Instructions required by the De- 
bug program are inserted in the program as required. 
Arguments in subprograms may not be dumped. 

There are no error stops in the Debug program; 
an attempt is made to salvage as much information 
as possible from incorrectly punched debug cards. 

FORTRAN output routines are used by the de- 
bugging package and thus (STH) and (FIL) are re- 
quired in the object program . The Debug program 
will cause a library search for these routines if they 
are not included with the object program . 

Job Deck Formats 

Both execute and Chain jobs may contain debug cards 
as follows: 

Execute Job 



1. 
2. 
3. 



4. 
5. 



7. 



I.D. card. 

XEQ card. 

FORTRAN source deck(s) with control cards 

and , if desired , FAP symbolic deck(s) with 

control cards (although the debug facilities 

may not be used for FAP). 

DEBUG card, if desired. 

Debug cards, if desired. 

Binary programs , if any; each program to be 

debugged preceded by its Symbol table . 

DATA card, if data. 

Data cards, if any. 



Chain Job 

1. I. D, card. 

2. XEQ card. 

3. CHAIN (R,T) card. 

4. Set of cards as described by items 3,4,5, and 
6 under Execute Job. 

5. As many sets of types 3 and 4 above as de- 
sired. 

6. DATA card, if data. 

7. Datacards, if any. 

Symbol Table Format 

The first card in the Symbol table has the following 
format: 



9L Prefix: 

Decrement: 
Address: 

9R 

8L 



8R Prefix: 

Decrement: 



Address: 



7L,6L,.. 



7R, 6R, . . .Prefix: 

Decrement: 



Address: 



Card word count (excluding first two words) 

Zero 

Checksum 

Subprogram name in BCD packed to left 

and filled with blanks (if main program , 

it will be filled with zeros) 

Zero 

Number of symbols referred to in symbol 

table 

Zero 

Source program variable name "l in 

Internal symbol for erasable data r BCD 

External Formula Number J 

Packed to left and filled with blanks 

Relocation bits 010 

0: Data in common 

2: Other source program data 

3: Erasable and program data 

4: External formula number 

Relative address of table entry; 

ascending order sort on decrement, 

descending order sort within the 

decrement value. The second, third, . . . 

cards in the Symbol table have the 

same format as the first except that 8L 

is the same as 7L, 6L, . . . and 8R is 

the same as 7R, 6R, .... 



Storage Requirements at Execute Tim e 

If debugging is requested, 60 + (2 times the number 
of different statements at which dumps are request- 
ed) additional storage locations are required. In 
addition, 26 locations are required for each DUMP 
card without an IF test, and 32 locations are required 
for each DUMP card with an IF test. For each 
item in the List, the following number of additional 
locations are required. 
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Each subscripted or nonsubscripted 

variable 

Each array 

Each Erasable storage dump 

Each COMMON data, Program data, 

o"" octal data duni^ 



2 

14 
4 



Also, for each item in the list, the following loca- 
tions are required for format: 

Each subscripted or nonsubscripted 
variable 4 

Each array 9 

Each Erasable data, COMMON data, 
Program data, or octal data dimip 3 

When debugging is requested, the object program 
will be loaded starting three locations higher than if 
there were no debugging request. 

Table Sizes for Debugging Routines 

1. The maximum number of subprograms in which 
dumps may occur is 20. 

2. The maximvim number of nonblank characters 
on DUMP cards per program or subprogram 
is 1200-2(n + 2), where n is the number of 
different statements at which dumps have been 
requested. 

3 . The maximum number of nonblank characters 
on all DUMP cards is 3000-2 (n + 2) , where n 
is the number of different statements at which 
dumps have been requested. 

4. The maximum number of different statements 
at which dumps may occur in any one program 
or subprogram is 10. 

5. The maximum number of different statements 
at which dumps may occur for a program and 
all its subprogram is 25. 

6. The maximum number of Symbol Table entries 
per program or subprogram is 500. 

7. The maximum format length permitted for a 
single statement is 200 locations. 

8. The number of debugging output lines is limit- 
ed to 1, 000. Subsequent lines will not be 
written. 

In order to change this limit, symbolic card 
LH000390 in the FORTRAN library routine STH 
should be changed as follows: 

TXH STHX,4,xxxx 
where xxxx is the maximum number of lines of de- 
bug output permitted. 

APPENDIX B: STANDARD ERROR PROCEDURE 

The FORTRAN standard error procedure permits an 
error program , called during execution of an object 
program , to determine the external and internal 
formula numbers of the source program statement 



containing the error and , in the uaae of subprograms , 
to determine the name of the subprogram. 

Activating The Standard Error Procedure 

The standard error procedure is activated as follows: 

FORTRAN n Operating Under IBSYS 

1. Symbolic location SEPFLG in record 4 should 
contain 111111111111^. 

2. Symbolic location FLTROO in record 14 should 
contain the instruction SXD FLTR05,4. 

FORTRAN II Independent of IBSYS 

Remove cards 9F04FLOW and 9F14FLOW from the 
Editor deck. 

Flow Tracing Instructions 

When the standard error procedure has been acti- 
vated, the compiler will lengthen the calling sequence 
to the following closed subroutines; arithmetic state- 
ment functions; all library functions except 9FPT 
and the input/output subroutines; and FUNCTION and 
SUBROUTINE subprograms. 

General Subroutine Calling Sequence 

The general subroutine calling sequence is as follows: 
TSX NAME , 4 NAME is the subroutine 

name 
TSX LARGl location of first argument 

TSX LARG2 location of second argument 



TSX LARGn location of nth argument 

(Return point from subroutine) 
For arithmetic statement functions and library 
functions , n is zero , since the arguments are stored 
elsewhere and are processed prior to the transfer to 
the function. The SUBROUTINE subprogram may 
have n = 0, i.e. , no arguments. 

Additional Flow Tracing Instructions 

In order to provide the error program with informa- 
tion for the flow trace , the following instructions 
are added to the general calling sequence: 
NTR *+2,0,A 
PZE C.O.B 
where: 

1. A is the external formula number (i.e. , source 
program statement number) of the source state- 
ment that contains the subroutine call; if this 
source statement does not have a statement 
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number , A is the external formula number of 
the last preceding source statement that has a 
statement number. If no statement numbers are 
assigned in the source program, A = 0, 
B is the internal formula number (i.e. , a 
number assigned by the Compiler to each source 
statement) of the source statement that contains 
the subroutine call. 

C depends on the type of subroutine called: 
a. If the calling sequence appears in an arith- 
metic statement function definition, 
C=32767. 



10* 



b. 



c. 



If a. is not satisfied and the calling seq- 
quence appears in a FUNCTION or SUB- 
ROUTINE subprogram, C = $+2. 
If neither a. nor b. is satisfied, C = 0. 
If the call to the error program occurs in a sub- 
routine, the NTR and PZE instructions give the 
necessary information to determine which source 
statement in the higher level subroutine called the 
subroutine containing the error. This technique can 
be used to trace through any number of subroutines 
back to the main program . 

Logic of the Er ror Program 

An error program may be written, using the follow- 
ing logic , by any installation desiring the standard 
error procedure. 

1. The error program is called by a TSX on 
Index Register 4 , which is generated by a 
CALL statement in the program containing the 
error; therefore, the location of the call to the 
error program is known. 

2 . Scan the calling sequence to skip over the 
TSX LARGi instructions to obtain the NTR 
and PZE instructions. 

The decrement of the NTR and PZE instruc- 
tions are, respectively, the external and 
internal formula numbers of the source state- 
ment producing the calling sequence. 
If the address part of the PZE instruction is 
zero, this is a main program (no program 
name), and the back trace terminates. 
If the address part of the PZE instruction is 
32767^„, this is an arithmetic statement func- 
tion. Accordingly, examine the instruction 
preceding the TSX of the calling sequence. 
This instruction is SXD L,4. The decrement 
of word L contains the 2's complement of the 
location of the TSX of the calling sequence for 
this arithmetic statement function. Return to 
step 2. to continue the back trace. 
If the address part of the PZE instruction is 
neither 32767io nor 0, it is the location of an 
instruction whose decrement gives the 2 's 



3. 



4. 



5. 



complement of the location of the TSX to this 
particular subprogram. Furthermore, the 
address plus 1 of the PZE is the location of 
the BCD name of the subprogram. Return to 
step 2. to continue the back trace. 
By scanning the TSX instructions of a 
FUNCTION or SUBROUTINE subprogram call- 
ing sequence , the error program can deter- 
mine the current values of the subprogram 
arguments . 



APPENDIX C: SYMBOLIC/ABSOLUTE LOCATION 
REFERENCES 

Symbolic locations referred to in this manual are 
listed below with their corresponding absolute loca- 
tions in octal. 



Assignment Location when 
Operating Under 





FORTRAN 


FORTRAN II 




Symbol 


Record 


Monitor 


IBSYS 


TAPRO 


lOP 




75051 


not applicable 


DATEBOX 


SST 




142 


3732 


(DATE) 


SST 




73471 


73662 


(PGCT) 


SST 




73460 


73651 


OPTION 


Sign- 


-on 


154 


not applicable 


HTPSTS 


Sign- 


-on 


1141 


4725 


FCTWO 


Sign- 


-On 


177 


3761 


GTCOM 


Sign- 


■On 


1145 


4731 


STAT 16 


Sign- 


■On 


1270 


5056 


CORBF 


Sign- 


■On 


3312 


7210 


ORDBF 


FAP 




545 


545 


WRITS 


FAP 




703 


703 


SPACS 


FAP 




2571 


2571 


ORDRS 


FAP 




4342 


4342 


INTOO 


FAP 




5276 


5276 


ERRRS 


FAP 




6024 


6024 


OPDOP 


FAP 




6025 


6025 


CHANS 


FAP 




146 


146 


SYSAST 


FAP 




147 


147 


SYSTPS 


FAP 




150 


150 


(ENDS) 


SST 




73474 


73665 


TOPRl 


BSS 




72227 


72400 


TOPR2 


BSS 




72364 


72536 


NOSTON 


BSS 




73054 


73231 


NOSTOF 


BSS 




73055 


73232 


(LIST) 


SST 




73461 


73652 


BOTTOM 


SST 




144 


3734 


MEMRY 


Section 6 


144 


3734 


BOTTAB 


Section 6 


10270 


14603 


TOPTAB 


SST 




73377 


73577 


XMTST 


Section 6 


1531 


5365 


CODE 


EXEW 


[ 


562 


315 


CONTE 


Gen Diag 


230 


4023 


ONLINE 


Gen Diag 


1555 


5350 
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Absolute Binary Instruction and Data Cards 16, 18 
Absolute Transfer Cards 16, 18 
Arctangent Subroutine 9 
Arrays 41 

BCD Dump 41 
Binary Correction Cards 5 
Binary Symbolic Subroutine Loader 
(BSS Loader) 14,15,16,25,27,36 
Blank Cards 16 

Call Edit Program 5 

CARDS COLUMN Card 21, 22 

CARDS ROW Card 21, 31 

Chain Job 20, 23, 42 

CHAIN (R, T) Card 20, 21, 30, 42 

Channel-Unit Table (DSU) 11, 12 

Channel-Unit Table (lOPU) 11 

COMMON 36, 41 

Compilation of Individual Programs 21 

Compilation/ Assembling and Execution 5, 19 

Compiler 4, 19, 36, 39 

input 26 

output 14 

punched card output 27 

Sense Switch settings 26 

tape assignments 26 

tape output 26 
CONTINUE Card 31 
Control Cards 16,21,22,32 
Control Records 36 
Control Subroutines 8 
Cosine Subroutine 9 

DATA Card 5, 7, 20, 21 , 30, 42 
DATE Card 19,20,21,30 
DEBUG Card 22, 31 , 40, 42 
Decimal Dmn" 41 
Diagnostic 7 

caller 14 

General 5,13,39 

Section I, II 
DUMP Card 20,31,40 
Dumping 41 
Duplicate Subprogram 15 

Edit Tape 6,7 

Editing Program 5, 6, 24, 39 

EDITON Deck 24 

Editor Deck 5, 17, 24 

composition of 5 

maintenance of 6 
END Card 13, 21 
End-of-Edit Control Card 5 
End-of-File Cards 19, 20, 22 
END TAPE Card 20, 22, 30 
Erasable Data 41 
Error Procedures 34, 43 
Execute Jobs 22 

Execution Error Monitor (EXEM) 28 
Exponential Subroutines 5,8 



FAP Assembling 6 

FAP Card 22, 31 

Floating Point Trap Routine 8, 10 

FORTRAN Assembly Program (FAP) 4, 19, 36 

FORTRAN Editing Program 6, 39 

FORTRAN Input/ Output Package (lOP) Record 

G Conversion 41 

Hyperbolic Tangent Subroutine 9 
Halts 27 

I. D. Card 5,19,20,21,30,42 
Input/ Output 5, 29, 30 

off-line 20 

on-line 20 

subroutines 9 
Input/ Output Library 37 
Instruction Cards 5 

Job Input Decks 19, 32 

LABEL Card 21, 31 
LIBE Card 21, 30 
Library 8, 24, 37 

Edit' control card 5,7 

Entry points 8 

program cards 11 
LIST; LIST8 Card 21,30 



7,35 



Master Record Card 6 
Master Tape 5,6 
Master Tape Duplicating Programs 
Mathematical Subroutines 5,8 
Monitor 4, 39 



5,23 



Cuiisuie opeiSiiuns ti, iio 
control cards 21,22,30 
halts 27 
input 18, 22, 25 
job 6,19 
operation 18 
subroutines 10, 37 
tape assignment 11 , 24, 25 
tape output 25 
tapes used 20 
Multiple Compilation/ Assembling 

Name Card 40 
Natural Log Subroutine 9 
New Record Card 7 
NIM 6 

9CLEDT 5,6,24 
9DIGEDIT 5, 7 
9EDIT 5,6,24 
9ENDEDIT 5 
9FIOP 5 
9FTCP 5,23 
9LIBEDIT 5,7 
9SYSEDIT 5,7 
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Object Program 14, 37 

deck 14 

loading 14 

subroutines in 15 
Octal Dump 41 
1-CS 10 
Overflow/ Underflow 10 

PACK Card 22,31 
PAUSE Card 22, 31 
PDUMP 10 
PRINT Card 22, 31 
Processor 32, 39 

control cards 32 

input/output 33 

operation 32 

records 39 

tape assignment 33 
Program Card 14, 16 
Program Data 41 

Relocatable Binary Instruction and Data Cards 
Relocatable Binary Transfer Cards 16, 18 
RESTART Cards 20, 31 
ROW Card 22, 31 



16,18 



40 



Search Records 36 
Self- Loader (32 words) 16,18 
Sign-On Record 20, 25, 35 
Sine Subroutine 9 
Source Language Debugging 
Square Root Subroutine 9 
Standard Error Procedure 43 
START Card 20, 26, 31 
Storage Requirements 42 
Subprogram Compilation 14 
Subroutines Required 10 
Symbol Table 36, 40 
SYMBOL TABLE Card 22, 31, 40 
Symbolic/ Absolute Location References 
System Edit Control Card 5 
System Positioning Record 35 
System Tape 5, 6, 11, 37 
generation 6, 24 
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Transfer Card 
Transfer List 



WD lOF 16 



14, 15, 16, 17 
16 



XEQ Card 5, 19, 20, 21, 30, 42 
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The instructions below show a typical transfer 
list and prologue. 



SUBPl BCD 
SUBP2 BCD 



ISUBPl 
1SUBP2 



Transfer List 



SXJBPN 


BCD 

HTR 
HTR 
HTR 


ISUBPN 


NAME 


SXD 


NAME- 




SXD 


NAME- 




SXD 


NAME- 




CLA 


1.4 




STA 


XI 




CLA 


2,4 




STA 


X2 




CLA 


N,4 




STA 


Xn 


Results 





Storage for contents of IR4 
Storage for contents of IR2 
Storage for contents of IRl 
NAME- 3, 4 Save IR4 contents in (NAME-3) 
NAME- 2, 2 Save IR2 contents in (NAME-2) 
NAME- 1, 1 Save IRl contents in (NAME-1) 

Location of 1st argument— »Xlp^ __ 

Location of 2nd argument— »X22j_3P 

Location of nth argument— »Xn2i_35 



Entry 

Unlike a FORTRAN compiled subprogram, a hand- 
coded subprogram may have more than one entry 
point. A hand-coded subprogram used with a FOR- 
TRAN callingprogram may be entered at any desired 
point, provided that a subprogram name acceptable 
to FORTRAN is assigned to each selected entry 
point. All the above mentioned conditions must, of 
course, be satisfied at each entry point. 



System Tape Subroutines 

As discussed previously, hand-coded subprograms 
as well as Library functions may be placed on the 
System tape of the FORTRAN System. When a 
FORTRAN source program mentions the name of 
such a subprogram, it is handled in exactly the 
same way as a library function. 



A FUNCTION subprogram must place its (single) re- 
sult in the accumulator prior to returning control to 
the calling program. 

A SUBROUTINE subprogram must place each of 
its results in a storage location. (Such a subpro- 
gram need not return results.) A result represented 
by the nth argument of a CALL statement is stored 
in the location specified by the address field of lo- 
cation (n,4). 

Return 

Transfer of control to the calling program is effected 
by: 

1. restoring the Index Registers to their condi- 
tion prior to transfer of control to the sub- 
program, and 

2. transferring to the calling program. 
The required steps are as follows: 



RESTORE CONTENTS OF XR4 
RESTORE CONTENTS OF XR2 
RESTORE CONTENTS OF XRl 
RETURN. N=NUMBER OF ARGUMENTS 



LXD 


NAME-3, 4 


LXD 


NAME-2, 2 


LXD 


NAME-1, 1 


TRA 


NH,4 



Alphameric Information 

Hand-coded subprograms may handle alphameric 
information. This information is supplied as an 
argument of a CALL statement. The form of an al- 
phameric argument is: 

nHX]L^2' ' "^ 
The following example illustrates the method of 
storing alphameric information. 

CALL TRMLPH (8, C, 13HFINAL RESULTS) 
The characters 13H are dropped and the remaining 
information stored as follows: 



Location 




Contents 


X 




FINALb 


X+1 




RESULT 


X+2 




Sbbbbb(b represents a blank, 
608) 


X+3 




7777777777778 


The address 


X 


is given in the calling sequence 


r the CALL statement. 
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ALPHA Table 35 
Alphameric Arguments 35 
Alphameric Fields 20 
Arguments 

of a function 9 

in Common Storage 28 

input and output 43 
Arithmetic, Double-Precision and Complex 

(see "Etouble-Precision and Complex Arithmetic ") 
Arithmetic Expressions, Optimization 8, 42 
Arithmetic Statements 6, 12, 30, 35 

Boolean arithmetic expressions 12 

fixed point variables 35 
Arithmetic Statement Functions 9, 10, 35 

calling 9 

definition 10 

naming 9 
Arrays, arrangement in storage 7 
Assembler 2, 32 
ASSIGN 13,45 
Assigned GO TO 

(see "GOTO, Assigned") 

BACKSPACE 19,25,45 
BCD Tape 39 
BETA Table 35 
Binary Information 39 
Blank Fields 21 
Boolean Expressions 8, 12 

rules for constructing 8 
Built-in Function 9, 10 

calling 9 

definition 10 

naming 9 

CALL 16, 18, 35, 45 

CALL CHAIN (R, T) 34,40 

CALL DUMP 34, 39, 40 

CALL EXIT 34, 39 

CALL PDUMP 40 

CALLFN Table 36 

Calling 9 

Card Form, FORTRAN 

(See "FORTRAN, Card Form.") 
CARDS COLUMN Card 38 
CARDS ROW Card 38 
Carriage Control 22 
Chain Job Deck Ordering 34 
Chain Probleras, Programming 34 

data and common 34 

relative constants 35 
CHAIN (R, T) Card 37 
CLOSUB Table 36 
Coding Form, FORTRAN 

(see "FORTRAN, Coding Form") 
COMMON 26, 31, 36, 42, 45 
COMMON Table 36 
Compiler 2, 32 
Computed GO TO 

(see "GOTO, Computed") 
Constants 6 

double-precision and complex 28, 29 



fixed point 6 
floating point 6 
in argument lists 
Continuation Cards 
CONTINUE 15, 45 
Control Cards 37 
Control Statements 



6,30 



DATA Card 37 

Data Input to the Object Program 23 

DATE Card 37 

DEBUG Card 37 

Definition of Function Types 10 

Designating a Double-ftecision or 

Complex FORTRAN Statement 28 
DIM Table 36 

DIMENSION Statement 7, 17, 20, 22, 26, 31, 36, 45 
DO Statements 14, 26, 36, 44, 45 

exits iS 

index 14.44 

preservation of index values 15 

range 14 

restrictions 15 

satisfied 14 

transfer of control 14 
DOS Within DOs 14 
IXjTAG Table 36 
Double -Precision and Complex Arithmetic 28 

arithmetic statements 30 

available functions 31 

control statements 30 

functions and subprograms 29 

input/output statements 30 

limitations on source program size 31 

specification statements 31 

END 16, 30, 34, 45 ^-O ' - ' " " ' ' 

END FILE 19,25,45 

End of ftogram 39 

END TAPE Card 33, 39 

Ending a FORMAT Statement 22 

EQUIT Table 36 

EQUIVALENCE 17,26,31,36,42,45 

Execute Job 32, 33 

Expressions 7, 8 

Boolean 8 

definition 7 

double -precision or complex 29 

fixed point 7, 8 

floating point 7, 8 

rules for constructing 7 

F Conversion, restriction on 44 

FAP Card 39 

FLXCON Table 36 

Fixed Point 2,6,7,8,12,36,42 

arithmetic 42 

constants 6, 36 

expressions 7,8 

variables 6 
Floating point 2, 6, 7, 8, 12, 28, 36 

constants 6, 36 

expressions 7, 8 
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variables 7 
FLOCON Table 
FMTEFN Table 
Format, record 



36 
36 
47 



6,19,20,36,45 



FORIVIAT Statement 

ending 22 

read in at object time 22 

statement lists 22 
FORMAT Table 36 
FORSUB Table 35 
FORTAG Table 37 
FORTRAN 

card form 5 

coding form 5 

programming, general rules 42 

types of statements 6 
FORTRAN II, System Definition 2 
FORVAL Table 35 
FORVAR Table 35 
FREQUENCY 26, 36, 45 
FRET Table 36 
FUNCTION 9,11,16,17,45 

statement 16 

(see also "Subprograms, FUNCTION-type ") 

subprograms 9 
naming 9 
definition 11 
Functions 

arguments of 9 

available 31 

calling 9 

definition of types 10 

modes of 9 

naming 9 
Functions and Subprograms, Double-Precision or Complex 29 

GOTO 12,13,15,26,45 
assigned 13 

restrictions 15 
computed 12,26 
unconditional 12 

Hand-Coded Subroutines 47 

Hierarchy of Operations 8, 42 

HOLARG Table 35 

I.D. Card 37 

IF 13,26,45 

IF ACCUMULATOR OVERFLOW 13, 26, 45 

IF DIVIDE CHECK 14, 26, 45 

IF (SENSE LIGHT) 13,45 

IF (SENSE SWITCH) 13, 26, 45 

Input/ Output Statements 2,6,19 

double -precision or complex 30 

in matrix form 19 

of entire matrices 20 

statement lists 22 

unit designation 23 
lOP Card 37 

Job 32 

Job Input Deck Ordering 34 

LABEL Card 38 
LAMBDA Table 35 



LIBE Card 38 

Library Functions 9, 10 

calling 9 

definition 10 

naming 9 
Library Routines 2 
Link Stacking 34 
LIST or LISTS Card 38 
Lists of Quantities, Specifying 
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Modes of a Function 9 
Monitor 2, 32 

control cards 37 

definition of job 32 

features 33 

input 32 

operations 32, 40 

programming problems for the Monitor 39 
Multiple-Record Formats 22 

Naming 9 
NLIST Table 37 
NONEXC Tabl€i 36 
Non-Executable Statements 36, 45 
Non-Execute Job 32, 33 
Numeric Fields 20 

Object Machines 2 
Object Program 

arrangement 42 

data input 23 
Optimization of Arithmetic Expressions 8 
Ordering of Chain Job Deck 34 
Ordering of Job Input Deck 34 
Ordering Within a Hierarchy 8 

PACK Card 38 
PAUSE 15,34,39,45 
PDUMP 40 
PRINT 19, 24, 45 
PRINT Card 38 
Processor 2, 32 
Program Control 22 
Programming 

for chain problems 34 

general rules 42 
PUNCH 19,24,45 

READ 19,23,45 

READ DRUM 19 , 24, 45 

READ INPUT TAPE 19, 23, 34, 40, 45 

READ TAPE 19, 24, 39, 45 

Record format 47 

Record lengths 47 

Relative Constants 43, 44 
in argument lists 44 
in COMMON statements 35, 44 
in input lists 43 

Repetition of Field Format 21 

Repetition of Groups 21 

RESTART Card 33, 41 

RETURN 16,19,45 

REWIND 19,25,45 

ROW Card 38 
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C_^1_ IT < „ 01 

Selection of Tapes for Link Stacking 34 

Sense Switch Settings 16 

Sequencing of Statements 45 

SIGMA Table 37 

Source Machines 2 

Source Program 5 

characters 46 

size limitation 31,35 

statements 45 

Source Statements 5 
Specification Statements 6,26,31 
START Card 33 
Statement 

numhei^ 5 36 

types of 6 
STOP 15,34,36,39,45 
SUBDEF Table 36 
Subprograms 9 

arguments 36 

FUNCTION 36 

functions and input/output statements 36 

SUBROUTINE, type 36 

statements 6, 16 
SUBROUTINE 

statement 16, 17 

(see also "Subprograms, SUBROUTINE-type ") 

subprograms 9, 16 
Subroutine Names as Arguments of Subprograms 18 
Subroutines on System Tape 43 



oubscilpteu Vctila-bles 7, 37 

double-precision or complex 29 
Subscripts 6,7, 37 
SYMBOL TABLE Card 39 
Symbolic Input/Output Unit Designation 
System Tape Subroutines 43 

Tape Usage 39 
TAU Table 37 
TDO Table 36 
TEIFNO Table 36 
TIFGO Table 37 
TRAD Table 37 
Transfer Statements 37 
Triangular Indexing 44 
i. oTOPo Table 36 

Unconditional GO TO 
(see "GOTO, Unconditional") 

Variables 6 

double-precision or complex 29 
fixed point 6 
floating point 7 
subscripted 7 

WRITE DRUM 19,25 

WRITE OUTPUT TAPE 19, 22, 25 

WRITE TAPE 19,25,39 

XEQ Card 37 
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